📄 gbook.asp
字号:
<!--#include file="head.asp"-->
<% response.buffer=true %>
<!--#include file="md5.asp"-->
<%
Function HtmlEncode(Content)
Content = Replace(Content, ">", ">")
Content = Replace(Content, "<", "<")
Content = Replace(Content, "'", "")
HtmlEncode = content
End Function
Function HtmlEncode2(Content)
Content = Replace(Content, ">", ">")
Content = Replace(Content, "<", "<")
'Content = Replace(Content, " ", " ")
Content = Replace(Content, "'", "")
Content = Replace(Content, vbcrlf,"<br>")
HtmlEncode2 = content
End Function
dim page
page = Request.QueryString("page")
if isnumeric(page)=false then
response.write "<script>alert('参数错误，窗口关闭！');window.close();</script>"
response.end
end if
if page="" then page=1
page2 = Request.QueryString("k")
if isnumeric(page2)=false then
response.write "<script>alert('参数错误，窗口关闭！');window.close();</script>"
response.end
end if
if page2="" then page2=1
On Error Resume Next
action = HtmlEncode(Request.QueryString("action"))
action_e = HtmlEncode(Request.Form("action_e"))
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("jnad_data/#ad_data&#.asp")
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * from admin")
if rs1("title")<>"" then webtitle=rs1("title")
if rs1("webname")<>"" then webname=rs1("webname")
if rs1("gbyn")<>"" then webyn=rs1("gbyn")
webgl=rs1("gl")
rs1.close
set rs1=nothing
%>
<html>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1px; margin-bottom: 1px }
body,p,td { font-family:Verdana, Arial, Helvetica, sans-serif; }
-->
</style>
<script language="JavaScript">
function shuzi(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 500 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<body marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/about_us_over.gif','images/contact_over.gif','images/site_map_over.gif','images/faq_over.gif')" topmargin="0" background="../images/bg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="center">
<%
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
Call Reply_Execute()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -