% dim ArticleID,sql,rs ArticleID=trim(request("ArticleID")) if ArticleId="" then response.Redirect("Default.asp") end if sql="select * from article where ArticleID=" & ArticleID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.Write("
找不到文章
") else %>
<%=rs("Title")%>
|