modi_check.asp

来自「该程序可应用于小学教学软件」· ASP 代码 · 共 36 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="ybqh.asp" -->
<%
Dim rs_yb__MMColParam
rs_yb__MMColParam = "1"
If (Request.QueryString("dm") <> "") Then 
  rs_yb__MMColParam = Request.QueryString("dm")
End If
%>
<%
Dim rs_yb
Dim rs_yb_numRows

Set rs_yb = Server.CreateObject("ADODB.Recordset")
rs_yb.ActiveConnection = MM_ybqh_STRING
rs_yb.Source = "SELECT id, dq FROM ybqh WHERE dq = '" + Replace(rs_yb__MMColParam, "'", "''") + "'"
rs_yb.CursorType = 0
rs_yb.CursorLocation = 2
rs_yb.LockType = 1
rs_yb.Open()

rs_yb_numRows = 0
%>
<%
If Not rs_yb.Eof Then 
	Response.Redirect("modi2_yb.asp?id="&rs_yb("id"))
	Else
	Response.Redirect("modi11_yb.asp")
End If 
%>
<%
rs_yb.Close()
Set rs_yb = Nothing
%>