📄 vcode.asp
字号:
<!--#include file="config.asp"-->
<%
Dim sid,yrs
sid=Request.QueryString("sid")
If sid="" Then
Response.Write "<script>alert('ID号不能为空！');window.close()</script>"
Response.End
End If
If not IsNumeric(sid) Then
Response.Write "<script>alert('ID号为非数字！');window.close()</script>"
Response.End
End If
Set yrs=Server.CreateObject("ADODB.RecordSet")
yrs.open "Select * from XH_Subject where id="&sid,conn,1,1
If (yrs.eof and yrs.bof) Then
Response.Write "<script>alert('此ID号不存在或已被删除！');window.close()</script>"
Response.End
End If
yrs.close
Set yrs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>调用代码</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body topmargin="0" leftmargin="0">
<p align="center">
<textarea rows="4" cols="38" name="code"><script src="<%=systemurl%>vote.asp?sid=<%=sid%>"></script></textarea><br>
<input type="button" name="button" value="关闭" onclick="javascript:window.close()">
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -