📄 dy.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Sub js
Rs.open "select * from tt_ad where a_id="&Request.QueryString("id"),conn,1,1
content = Rs("a_content")
content = Replace(content,"/","\/")
content = Replace(content,"/","\\")
content = Replace(content,"""","\""")
content = Replace(content,"'","\'")
%>
document.writeln("<!DOCTYPE html PUBLIC \"-\/\/W3C\/\/DTD XHTML 1.0 Transitional\/\/EN\" \"http:\/\/www.w3.org\/TR\/xhtml1\/DTD\/xhtml1-transitional.dtd\">");
document.writeln("<html xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">");
document.writeln("<head>");
document.writeln("<meta http-equiv=\"Content-Type\" content=\"text\/html; charset=gb2312\" \/>");
document.writeln("<title>广告<\/title>");
document.writeln("<\/head>");
document.writeln("<body>");
document.writeln("<%=content%>");
document.writeln("<\/body>");
document.writeln("<\/html>");
<%
Rs.close
End Sub
Sub htm
Rs.open "select * from tt_ad where a_id="&Request.QueryString("id"),conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>广告</title>
</head>
<body>
<%=Rs("a_content")%>
</body>
</html>
<%
End Sub
Select case Request.QueryString("menu")
case "htm"
htm
case "js"
js
End Select
Set Rs = Nothing
conn.close:Set conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -