源代码是这样的: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="config.asp"--> <!--#include file="conn.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> <style type="text/css"> <!-- body { background-color: #ccffdd; } --> </style></head>
<body> <% dim a a=Request.QueryString("m_CallerID") dim conn set conn=server.createobject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=192.168.0.100;DATABASE=aaa;UID=sa;PWD=aaa" strSql = "SELECT * FROM DW_CUSTOMER where CUS_MOBILE = '" & a & "' or CUS_PHONE = '" & a & "'" set rstData = DataToRsStatic(conn, strSql) Dim RsStatic On Error Resume NexT Set RsStatic = server.CreateObject("ADODB.RecordSet") RsStatic.CursorLocation = 3 RsStatic.Open strSql,Conn,3,3 Do Until RsStatic.EOF response.write("姓名"& RsStatic("CUS_NAME")) response.write("<br>电话号码"& RsStatic("CUS_PHONE")) response.write("<br>手机号码"& RsStatic("CUS_MOBILE")) response.write("<br>单位"& RsStatic("CUS_UNIT")) response.Write("<br>住址"& RsStatic("CUS_ADDRESS")) response.write("<hr>") RsStatic.MoveNext Loop RsStatic.Close Set RsStatic = nothing conn.close Set conn=Nothing %> </body> </html> 这个是可以用的的 执行结果如下: 姓名xiaoli 电话号码2102 手机号码 单位aa 住址aa
姓名weweww 电话号码2102 手机号码43243 单位rwe 住址3243
姓名234332 电话号码2102 手机号码ewe 单位3243 住址swq
姓名32wqw 电话号码2102 手机号码eq3 单位dgre 住址231
但上面一条字段并不显示所有的数据库内容(因为有好几十条) 我想改成在每一条加一个按钮,点一下以后跳出新页面就可以看到相应的条目的其他信息 请问应该怎么写,主要是vbs里的form应该怎么写,请大家帮忙,谢谢