<% Dim sScriptName sScriptName = Request.ServerVariables("SCRIPT_NAME") Dim quote quote = chr(34) Dim cnn set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = conn_shan cnn.Open Function GetRecords(sSQL) Dim rst Set rst = Server.CreateObject("ADODB.RECORDSET") set rst.ActiveConnection = cnn 'When Record is Open, adUseClient CursorLocation 'will check all records 'adUseServer allows to use CacheSize 'rst.CursorLocation = adUseServer 'When using AdUseServer£¨CacheSize 'limits the lines we are fetching. We only fetch what is 'needed to display - iRowsPerPage 'rst.CacheSize = iRowsPerPage rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 rst.Open sSQL ',adOpenStatic, adLockReadOnly Set GetRecords = rst END Function Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub %> <% Dim sSQL,rst Dim StrSQL %> Server for Pharmacophore Information and Mapping  <% Response.Expires = 0 Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, True) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set OutStream= FileObject.OpenTextFile (HitsFile, 2, True) OutStream.WriteLine(NewHits) InStream.Close OutStream.Close %>

Server for Pharmacophore Information and Mapping

BIDD Pharmainformatics Databases

Server for Pharmacophore Information and Mapping (SPIM) can provide the informaiton of 240 pharmacophore models of 146 distinct protein targets. These pharmacophore models were collected from journals in the fields of medicinal chemistry, chemical informatics, and pharmaceutical science.

It is highly useful for searching and designing small molecules and drug leads that interact with specific protein target based on the matching of specific sets of chemical features (pharmacophore) essential for the interaction.

<% StrSQL = "select * from targetname" sSQL = StrSQL Set rst = GetRecords(sSQL) %>

Search Pharmacophore Model

Target Name:

Preliminary: Use of SPIM for commercial purposes is not allowed.

<% Dim L,i,num,Display L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %> visits since 2009.12 .........


Welcome to sign our Guestbook.

If you find any error in data or bug in web service, please kindly report it to maxiaohua@nus.edu.sg.

Dr. Chen Yuzong

Deputy Director of Center for Computational Science and Engineering
Professor in Department of Pharmacy
National University of Singapore, Singapore

All rights reserved.

Computer-aided Drug Design
About BIDD | Databases | Software | Teaching | Research |  Links

Department of Computational Science | National University of Singapore | Blk S17, 3 Science Drive 2, Singapore 117543