📄 modi_check.asp
字号:
<%@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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -