Question

要求：if isnumeric(qs) then判断语句后不懂，希望得到大家的解释？

daohang表：
字段：ID daohangmingcheng tim

<%
dim qs,sql3,rs3
qs=request.QueryString("id") //请求id
if qs="" then
response.Redirect"index.asp" //id为空返回主页
end if
'判断语句
if isnumeric(qs) then判断语句
qs=cint(mid(qs,1,4))
sql3="select daohangmingcheng from daohang where id="&qs
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql3,db,1,3
if rs3.bof and rs3.eof then
response.Write"<font color='red'>数据出错</font>"
response.End()
else
response.Write rs3("daohangmingcheng")
end if
else
response.Write"<font color='red'>数据出错</font>"
response.End()
end if
%>
数据库名: db
表名：daohang
字段：ID daohangmingcheng tim
if isnumeric(qs) then判断语句
qs=cint(mid(qs,1,4)) //不懂？好像是转换类型
sql3="select daohangmingcheng from daohang where id="&qs
set rs3=server.CreateObject("adodb.recordset") //不懂？
rs3.open sql3,db,1,3 //不懂？?
if rs3.bof and rs3.eof then //不懂？不懂？?

Answer 1

if isnumeric(qs) then 判断qs是否为数字
qs=cint(mid(qs,1,4)) 如果是数字，就从原qs的第1个数字开始取4个，返还给qs，比如原qs是1234567890，那么这样之后qs就是1234。 cint（）方法是去掉小数点，小数点之后的数字四舍五入到整数位

sql3="select daohangmingcheng from daohang where id="&qs
set rs3=server.CreateObject("adodb.recordset") // 呼叫数据库连接的方法
rs3.open sql3,db,1,3 //运行sql语句
if rs3.bof and rs3.eof then // 判断rs3里时候有查询到的结果