?? 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 + -