新微赢技术网

标题: 请问一下这个代码应该怎么写？ [打印本页]

作者: 小飞俠 时间: 2010-1-13 05:57
标题: 请问一下这个代码应该怎么写？
源代码是这样的： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>   <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> <style type="text/css">  </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应该怎么写，请大家帮忙，谢谢

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)