求一段ASP代码判断会员的代码
两个文件：demo.asp ，db1.mdb（数据库）
demo.asp的内容：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>demo</title>
<body>
<FONT face="宋体" color="#ff0000" size="5"><STRONG>DEMO</STRONG></FONT>
<FORM METHOD="post" ACTION="demo.asp" ID="Form1">
<FONT face="宋体">
QQ：<INPUT id="N_QQ" type="text" name="N_QQ">
<INPUT id="Submit1" type="submit" value="查询" name="Submit1">
</FONT>
</FORM>
<%
if trim(request("N_QQ"))<>"" then
S_QQ=Request.Form("N_QQ")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db1.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
rs.open"select * from 会员表 where QQ='"+S_QQ+"'",conn
if not rs.eof then
response.write("<font color=green><p>您的会员号码："+S_QQ+" 是本站会员</p></font>" )
else
response.write("<font color=red><p>您的会员号码："+S_QQ+" 不是本站会员</p></font>" )
end if
end if
%>
</body>
</html>
db1.mdb的内容如图：
那如何录入到数剧库？
建议用Access，新建数据库，如果你原来的数据是EXCEL文件那么可以直接导入。
就象这样啊,
比如字段名为：isMember
在写入新数据的时候如果是会员就存入 yes 不是会员就存入 no
然后在查询的时候，sql="select * from 表名 where 字段名 like '%"&接收到的关键字&"%'"
set rs=Server.CreatObject.Recordset
rs.open conn,sql,1,1
while not rs.eof
if rs("isMember")="yes" then
response.write "<span style='color:#090'>"&rs("字段名")&"</span>"
else
response.write "<span style='color:#F00'>"&rs("字段名")&"</span>"
end if
rs.movenext
wend
