📄 index.asp
字号:
<style type="text/css">
.spanstyle {
COLOR: #0000ff; FONT-FAMILY: 华文新魏; FONT-SIZE: 12pt; POSITION: absolute; TOP: -50px; VISIBILITY: visible
}
</style>
<script language="javaScript">
<!--
var x,y
var step=18
var flag=0
var message=""
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos[i]=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos[i]=-200
}
function handlerMM(e){
x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX
y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY
flag=1
}
function www_helpor_net() {
if (flag==1 && document.all) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+step
ypos[i]=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y
for (i=0; i<message.length-1; i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos[i]
thisspan.posTop=ypos[i]
}
}
else if (flag==1 && document.layers) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+step
ypos[i]=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y
for (i=0; i<message.length-1; i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos[i]
thisspan.top=ypos[i]
}
}
var timer=setTimeout("www_helpor_net()",30)
}
for (i=0;i<=message.length-1;i++) {
document.write("<span id='span"+i+"' class='spanstyle'>")
document.write(message[i])
document.write("</span>")
}
if (document.layers){
document.captureEvents(Event.MOUSEMOVE);
}
document.onmousemove = handlerMM;
www_helpor_net();
//-->
</script>
<%dim time1,time2
time1=timer
dim page,indexfilename,indeximg,db,n,x,bookbg,txt,jd100_top,jd100_foot,m,jd100_fla
indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\")))
imdeximg="images/" '图片文件夹
db="guestbook.mdb" '数据库
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
n=10 '每页显示留言数
x=5 '每页显示的页数
m=10 '留言头像可选个数,男101-199.gif 女001-099.gif,各可增加到99个
bookbg="bookbg.gif" '背景图片,当不使用背景图时,保持为空 ""
txt=1000 '留言的最大字数
jd100_top="<IMG src="&imdeximg&"welcome.gif>" '设置页头信息welcome.gif可换成你的logo放在图片目录下
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * from admin")
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
'设置页脚信息,这里可以加入你的地址
page =Request.QueryString("page")
if page="" or page=0 then page=1
action = Request.QueryString("action")
action_e = Request.Form("action_e")
if action_e <>"" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if
end if
%>
<html>
<head>
<title>留言板</title>
<meta name="keywords" content="留言">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="gbstyle.css" type="text/css">
<style type="text/css">
<!--
.unnamed1 {
font-size: 12px;
line-height: 18px;
}
form {margin-bottom:0;margin-top:0}
.style1 {
color: #990000;
font-weight: bold;
}
.unnamed2 {
font-size: 14px;
line-height: 24px;
}
-->
</style>
</head>
<script language="JavaScript">
<!--
function gbcount(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("留言不能超过 <%=txt%> 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
//-->
</script>
<% if len(bookbg)<3 then
bookbg=""
else
bookbg="background="& imdeximg & bookbg
end if %>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="51" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="49" valign="top" <%=bookbg%>>
<div align="center">
<CENTER>
<%=jd100_top%> </CENTER>
</div></td>
</tr>
</table>
<table width="100%" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td height="18" align="center" valign="top" <%=bookbg%>>
<%
'主程序
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
Call Reply_Execute()
Case "admin"
Call Admin_Login_Execute()
Case "EditPWD"
Call EditPWD_Execute()
Case "Edit"
Call Edit_Execute()
Case "Edit_web"
Call Edit_web()
End Select
Call Main_Menu()
Select Case action
Case "UbbHelp"
Call UbbHelp()
Case "Admin_Login"
Call Admin_Login()
Case "Exit"
Call Exit_Admin()
Call View_Words()
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "View_Words"
Call View_Words()
Case "Delete"
Call Delete()
Call View_Words()
Case "EditPWD"
Call EditPWD()
Case "Edit"
Call Edit()
Case "Edit_web"
Call Edit_web()
End Select
%>
</td>
</tr>
</table>
<table width="100%" height="77" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="75" valign="top" bgcolor="#FFFFFF"><table align=center cellpadding=0 cellspacing=0>
<tr>
<td width="760" ></td>
</tr>
<tr>
<td class="footline"></td>
</tr>
<tr align=center height=60 style="line-height:130%">
<td> <span class="unnamed1">
</span><br>
<table width="594" border=0 align=center cellPadding=0 cellSpacing=0>
<tr>
<td width="571" height="47" align="center"><span class="unnamed1"> Copyright
(c) 2006-2007
编制：<a href=mailto:mxqqn@163.com>Mengite</a>
<% time2=timer
Response.Write "执行时间"&(time2-time1)*1000&"毫秒"
%>
</span></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
<%
'添加一条新留言
%>
<% Sub Add_New() %>
<table width="598" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="form" method="post" action="<%=indexfilename%>">
<tr>
<td height="25" colspan="3" align="center"> <div align="center"><font size="3"><strong>留 言</strong></font><font color="#000000">
</font></div>
<img src="<%=imdeximg%>line.gif" width="500" height="1"> </td>
</tr>
<tr>
<td width="80" > <div align="right">姓名：</div></td>
<td width="249"> <input type="text" name="name" class="input1" size="20" maxLength=10>
*10个字内</td>
<script>
function showimage(){document.images.showimages.src="<%=imdeximg%>"+document.form.sex.options[document.form.sex.selectedIndex].value+""+document.form.img.options[document.form.img.selectedIndex].value+".gif";}
</script>
<td width="241">选择头像:
<select name="img" size="1" onChange="showimage()">
<% if m>99 then m=99
for i=1 to m
g=""
g=i
if len(i)<2 then g="0"&i
%>
<option value='<%=g%>'><%=g%></option>
<% next %>
</select>
</td>
</tr>
<tr>
<td align="right"> 性别： </td>
<td>
<select name="sex" size="1" onChange="showimage()">
<option value="1">男</option>
<option value="0">女</option>
</select>
</td>
<td rowspan="5">
<img src="<%=imdeximg%>101.gif" name=showimages id="showimages">
</td>
</tr>
<tr>
<td align="right">QQ：</td>
<td><input name="qq" type="text" class="input1" id="qq" size="35" maxLength=25></td>
</tr>
<tr>
<td align="right">主页： </td>
<td> <input name="web" type="text" class="input1" value="http://" size="35" maxLength=50> </td>
</tr>
<tr>
<td align="right">来自：</td>
<td><input name="come" type="text" class="input1" id="come" size="35"></td>
</tr>
<tr>
<td align="right"> 电子邮箱： </td>
<td> <input name="email" type="text" class="input1" value="@" size="35" maxLength=50>
* </td>
</tr>
<tr>
<td align="right" valign="top">
</td>
<td colspan="2">
<% call ubb_jd100() %>
</td>
</tr>
<tr>
<td align="right" valign="top"> 留言内容： </td>
<td colspan="2"> <textarea name="words" cols="50" rows="8" class="input1"
onkeydown=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);
onkeyup=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);></textarea>
*
</td>
</tr>
<tr>
<td align="right" valign="top"> </td>
<td colspan="2">最多字数：<INPUT disabled maxLength=4 name=total size=3 value=<%=txt%>>
已用字数：<INPUT disabled maxLength=4 name=used size=3 value=0>
剩余字数：<INPUT disabled maxLength=4 name=remain size=3 value=<%=txt%>></td>
</tr>
<tr align="center">
<td colspan="3"> <input type="hidden" name="action_e" value="Add_New"> <input type="submit" name="Submit" value="提交" class="input1">
<input type="reset" name="Submit2" value="重写" class="input1"> <br>
<img src="<%=imdeximg%>line.gif" width="500" height="1">
</td>
</tr>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -