ASP简单问题?

来源:百度知道 编辑:UC知道 时间:2024/05/30 06:34:59
各位高手来指点一下:
代码:
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<SCRIPT Language="VBScript" RUNAT="Server">
Sub rs_Display()
dim strConn,strSQL,strBookName
strBookName = Request.Form("BookName")
%>
<!-- #include file="ADOFunctions.asp" -->
<%
Dim objRS, strSQL
strSQL = "SELECT * FROM renshi where [name] LIKE '%"&strBookName&"%'"
Set objRS = GetSQLRecordset(strSQL, "BBS.mdb", "renshi")
With Response
if objRS.EOF then
.Write "没有查询到相关的记录!"
else
.Write "<TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_
"<TR HEIGHT=12><TD WIDTH=270><B> 姓 名 </B></TD>" &_
"<TD WIDTH=200><B> 性 别 </B></TD>" &_

<%
Dim objRS, strSQL
strSQL = "SELECT * FROM renshi where [name] LIKE '%"&strBookName&"%'"
Set objRS = GetSQLRecordset(strSQL, "BBS.mdb", "renshi")
'With Response
if objRS.EOF then
response.Write "没有查询到相关的记录!"
else
response.Write "<TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_
"<TR HEIGHT=12><TD WIDTH=270><B> 姓 名 </B></TD>" &_
"<TD WIDTH=200><B> 性 别 </B></TD>" &_
"<TD WIDTH=40><B> 出生日期 </B></TD>" &_
"<TD WIDTH=40><B> 家庭住址 </B></TD>" &_
"<TD WIDTH=40><B> 联系方式 </B></TD>" &_
"<TD WIDTH=40><B>学 历 </B></TD>" &_
"<TD WIDTH=40><B> 删 除 </B></TD></TR>"
end if
do Unti