韩剧1988免费观看全集_久久影视三级福利片_亚洲视频在线观看免费_在线观看欧美日韩_国产亚洲激情在线_亚洲精品美女久久久_欧美国产日韩一区二区在线观看_91在线观看免费高清完整版在线观看_日韩av免费看_国产又爽又黄的激情精品视频_琪琪亚洲精品午夜在线_欧美性猛xxx_不卡毛片在线看_国产亚洲日本欧美韩国_91国内在线视频_精品国产福利视频

當(dāng)前位置:蘿卜系統(tǒng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

本文教你做留言本(3)

本文教你做留言本(3)

更新時(shí)間:2021-01-16 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

上二篇里,我們已經(jīng)把留言本的功能、數(shù)據(jù)庫、文件、CSS等都設(shè)計(jì)好
了,現(xiàn)在我們要來完成代碼部份。
一、包含函數(shù)庫
<!--#include file="operation$db.asp" -->

在文件第一行加上包含語句
二、根據(jù)action 參數(shù)來判斷
<%
action=request("action")
select case action
case "logout"
logout '退出登錄子程序
case "login"
login '登錄子程序
case "replay"
replay '回貼子程序
case "delete" '表示刪除貼子
if session("lybmanage")="" then '如果還沒有登錄,
response.redirect "index.asp?action=manage" '就顯示登錄界面
else
delete '否則,去刪除貼子
end if
case "addrec" '增加新貼子
addrec() '加入新貼
response.redirect "index.asp" '然后轉(zhuǎn)到初始頁
case "modify" '表示修改留言本信息
if session("lybmanage")="" then '如果還沒有登錄,
response.redirect "index.asp?action=manage" '就顯示登錄界面
else
modify '否則,修改信息
response.redirect "index.asp" '然后,回初始頁面
end if
end select
%>


三、根據(jù)上面的action,要有以下幾個(gè)子程序
<%
'退出登錄子程序
sub logout()
'刪除session變量lybmanage
session.contents.remove "lybmanage"
'轉(zhuǎn)到初始頁面
response.redirect "index.asp"
end sub

'登錄子程序
sub login()
'取得登錄參數(shù)
user=request.form("user")
pwd=request.form("pwd")
if user<>"" and pwd<>"" then '參數(shù)都不為空時(shí)才檢查
opendb my '打開數(shù)據(jù)庫連接
'定義SQL查詢,尋找用戶名相等的記錄
sql="select * from admin where admin_user='"&user&"'"
'查詢表用于讀
searchtable my,sql,rs
if not rs.eof then '如果有這樣的用戶
if pwd=rs("admin_pass") then '判斷密碼是否相等
session("lybmanage")=user '相等,就記錄到session變量里
end if
end if
end if
response.redirect "index.asp" '不管登錄與否,都回到初始頁面
end sub

'修改留言本信息子程序
sub modify()
'取得密碼
pwd=request.form("pwd")
if pwd="" then exit sub '沒有密碼不修改
newpwd=request.form("newpwd")'取得新密碼
opendb my '打開數(shù)據(jù)庫連接
'定義SQL查詢語句
sql="select * from admin where admin_user='"&session("lybmanage")&"'"
'打開表用于讀
changetable my,sql,rs
if not rs.eof then
'下面修改信息
if pwd=rs("admin_pass") then
if newpwd<>"" then
rs("admin_pass")=newpwd
end if
rs("admin_nick")=request.form("nick")
rs("admin_name")=request.form("name")
rs("admin_homepage")=request.form("homepage")
rs("admin_perpage")=request.form("perpage")
rs.update
end if
end if
'關(guān)閉表和數(shù)據(jù)庫連接
closetable rs
closedb my
'完成后轉(zhuǎn)到初始頁面
response.redirect "index.asp"
end sub

'回復(fù)子程序
sub replay()
'如果沒有登錄,直接退出
if session("lybmanage")="" then exit sub
'取得表單內(nèi)容
rep=pro(request.form("rep"))
id=request.form("id")
'打開數(shù)據(jù)庫連接
opendb my
'定義SQL查詢
sql="select * from main where user_id =" & id
'打開表用于寫
changetable my,sql,rs
'寫入
rs("user_replay")=true
rs("user_rep")=rep
rs("user_reptime")=now()
rs.update
'關(guān)閉表和數(shù)據(jù)庫連接
closetable rs
closedb my
'轉(zhuǎn)到初始頁
response.redirect "index.asp"
end sub


'刪除貼子程序
sub delete()
'如果沒登錄,直接退出
if session("lybmanage")="" then exit sub
'取得刪除的貼子的ID
id=request("id")
'打開數(shù)據(jù)庫連接
opendb my
'定義SQL查詢
sql="select * from main where user_id =" & id
'打開表用于寫
changetable my,sql,rs
'刪除貼
rs.delete
rs.update
'關(guān)閉表和數(shù)據(jù)庫連接
closetable rs
closedb my
'轉(zhuǎn)到初始頁面
response.redirect "index.asp"
end sub

'加新貼子程序
sub addrec()
'打開數(shù)據(jù)庫連接
opendb my
'定義SQL查詢
sql="select * from main where user_id is null"
'打開
changetable my,sql,rs
'加入新記錄
rs.addnew
rs("user_ip")=request.servervariables("remote_addr")
rs("user_name")=request.form("name")
rs("user_email")=request.form("email")
rs("user_oicq")=request.form("oicq")
rs("user_from")=request.form("from")
rs("user_http")=request.form("http")
rs("user_face")=request.form("face")
'留言的內(nèi)容要處理一下再入庫
rs("user_ly")=pro(request.form("ly"))
rs.update
'關(guān)閉表和數(shù)據(jù)庫連接
closetable rs
closedb my
end sub
%>


四、在<html>標(biāo)簽之前,還要加入讀取留言本信息的程序段,用來顯示導(dǎo)航條
<%
opendb my
opentable my,"main",rs
homepage=rs("user_homepage")
name=rs("user_nick")
user=rs("user_name")
perpage=rs("user_perpage")
closetable rs
closedb my
%>


五、現(xiàn)在來完成最重要的幾個(gè)部份,也就是在<html></html>之間的部份。
有這么幾個(gè):
最開始是顯示一個(gè)簡單的導(dǎo)航條
<A HREF="#top"></A>
<TABLE cellSpacing=0 cellPadding=1 width=650 align=center bgColor=#000000
border=0>
<TBODY>
<TR>
<TD>
<TABLE class=table002 cellSpacing=0 cellPadding=4 width=650 border=0>
<TBODY>
<TR>
<TD class=jnfont5 vAlign=center align=left><B>&gt;&gt; </B><A
href="<%=homepage%>" title=返回主頁>主頁</A> | <A
href="index.asp?action=showmodify" title=編輯你的個(gè)人資料>修改資料</A> |
<%if session("lybmanage")="" then%>
<A href="index.asp?action=manage" title=回復(fù)或刪除留言>留言管理</A>
<%else%>
<a href="index.asp?action=logout" title=退出管理模式>退出管理</a>
<%end if%>
</TD>
<TD class=jnfont5 vAlign=center align=right>
<%=name&"留言薄"%>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<br>

然后根據(jù)參數(shù)選擇后面要顯示的部份
<%action=request("action")
select case action
case ""
showadd
showrec
case "showmodify"
if session("lybmanage")="" then
showlogin
else
showmodify
end if
case "manage"
if session("lybmanage")="" then
showlogin
else
showadd
showrec
end if
end select%>

下面是這幾個(gè)子程序:
showadd 顯示加新貼表單子程序
<%sub showadd()%>
<DIV align=center>
<FORM onsubmit="return Juge(this)" action="index.asp" method="post">
<TABLE cellSpacing=1 cellPadding=3 width=650 bgColor=#000000 border=0>
<TBODY>
<TR>
<TD class=table001 vAlign=top width=300 height=170>
<TABLE cellSpacing=2 cellPadding=2 width="95%" border=0>
<TBODY>
<TR>
<TD width="9%" align="center"><IMG height=24 src=http://cfan.net.cn/info/"images/nc.gif"
width=24></TD>
<TD class=jnfont3 width="14%">姓名</TD>
<TD width="77%"><INPUT class=input1 maxLength=20 name=name>
<INPUT
type=hidden value=<%%> name=user>
</TD></TR>
<TR>
<TD width="9%" align="center"><IMG height=16 src=http://cfan.net.cn/info/"images/email.gif" width=16
border=0></TD>
<TD class=jnfont3 width="14%">Email</TD>
<TD width="77%"><INPUT class=input1 maxLength=100 name=email> </TD></TR>
<TR>
<TD width="9%" align="center"><IMG height=16 src=http://cfan.net.cn/info/"images/from.gif"
width=16></TD>
<TD class=jnfont3 width="14%">來自</TD>
<TD width="77%">
<select size=1 name=from>
<option value=北京>北京
<option value=廣東>廣東
<option value=上海>上海
<option value=新疆>新疆
<option value=遼寧>遼寧
<option value=廣西>廣西
<option value=海南>海南
<option value=湖南>湖南
<option value=甘肅>甘肅
<option value=河北>河北
<option value=湖北>湖北
<option value=江西>江西
<option value=江蘇>江蘇
<option value=西藏>西藏
<option value=山東>山東
<option value=浙江>浙江
<option value=安徽>安徽
<option value=福建 selected>福建
<option value=吉林>吉林
<option value=黑龍江>黑龍江
<option value=山西>山西
<option value=云南>云南
<option value=貴州>貴州
<option value=四川>四川
<option value=陜西>陜西
<option value=重慶>重慶
<option value=天津>天津
<option value=河南>河南
<option value=青海>青海
<option value=寧夏>寧夏
<option value=臺(tái)灣>臺(tái)灣
<option value=香港>香港
<option value=澳門>澳門
<option value=其它地區(qū)>其它地區(qū)</option>
</select>
</TD>
</TR>
<TR>
<TD width="9%" align="center"><IMG height=16 src=http://cfan.net.cn/info/"images/homepage.gif"
width=16 border=0></TD>
<TD class=jnfont3 width="14%">主頁</TD>
<TD width="77%">
<INPUT class=input1 maxLength=100 size=30 name=http>
</TD></TR>
<TR>
<TD width="9%" align="center"><IMG height=16 src=http://cfan.net.cn/info/"images/oicq.gif" width=16
border=0></TD>
<TD class=jnfont3 width="14%">oicq</TD>
<TD width="77%"><INPUT class=input1 maxLength=20 name=oicq> </TD></TR>
<TR>
<TD width="9%" align="center"><IMG height=18 src=http://cfan.net.cn/info/"images/icq.gif" width=18
border=0></TD>
<TD class=jnfont3 width="14%">icq</TD>
<TD width="77%"><INPUT class=input1 maxLength=20 name=icq> </TD></TR>
<TR>
<TD class=jnfont3 colSpan=2 align="center">您的尊容:</TD>
<TD class=jnfont5 width="77%"><SELECT size=1 name=face>
<OPTION value=images/1.gif selected >頭像1
<OPTION value=images/2.gif>頭像2
<OPTION value=images/3.gif>頭像3
<OPTION value=images/4.gif>頭像4
<OPTION value=images/5.gif>頭像5
<OPTION value=images/6.gif>頭像6
<OPTION value=images/7.gif>頭像7
<OPTION value=images/8.gif>頭像8
<OPTION value=images/9.gif>頭像9
<OPTION value=images/10.gif>頭像10
<OPTION value=images/11.gif>頭像11
<OPTION value=images/12.gif>頭像12
<OPTION value=images/13.gif>頭像13
<OPTION value=images/14.gif>頭像14
<OPTION value=images/15.gif>頭像15
<OPTION value=images/16.gif>頭像16
<OPTION value=images/17.gif>頭像17
<OPTION value=images/18.gif>頭像18
<OPTION value=images/19.gif>頭像19
<OPTION value=images/20.gif >頭像20
<OPTION value=images/21.gif >頭像21
<OPTION value=images/22.gif>頭像22
</OPTION></SELECT>
<A href="javascript:popwin3('tou.htm')">查看頭像列表</A>
</TD></TR></TBODY></TABLE></TD>
<TD class=table001 vAlign=top width=300 height=170>
<TABLE cellSpacing=2 cellPadding=2 width=292 align=center border=0>
<TBODY>
<TR>
<TD width=10><IMG height=24 src=http://cfan.net.cn/info/"images/post.gif"
width=24></TD>
<TD class=jnfont3 width=119>內(nèi)容</TD>
<TD class=jnfont5 width=119>
<DIV align=center><A
href="javascript:popwin3('pubb.htm')">UBB代碼用法</A></DIV></TD></TR>
<TR>
<TD colSpan=3><TEXTAREA class=testarea1 name=ly rows=5 cols=44 type="text"></TEXTAREA>
</TD></TR>
<TR>
<TD class=jnfont3 colSpan=3>
1)留言者不能發(fā)布任何不符合當(dāng)?shù)胤ㄒ?guī)、國家法律和國際法律的資料; </TD></TR>
<TR>
<TD class=jnfont3 colSpan=3>
2)留言者不得發(fā)布任何非法的、騷擾性的、中傷他人的、辱罵性的、恐嚇性的、傷害性的、庸俗的,淫穢等信息資料;
<input type="hidden" name="action" value="addrec">
<script language=JavaScript>
<!--

function Juge(theForm)
{
if (theForm.name.value == "")
{
alert("請輸入您的姓名!");
theForm.name.focus();
return (false);
}
if (checktext(theForm.name.value))
{
alert("請您輸入有效姓名!");
theForm.name.select();
theForm.name.focus();
return (false);
}

if (theForm.email.value == "")
{
alert("請您輸入\"email\"!");
theForm.email.focus();
return (false);
}
if (theForm.ly.value == "")
{
alert("請您輸入內(nèi)容!");
theForm.ly.focus();
return (false);
}

var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_@.";
var checkStr = theForm.email.value;
var allValid = true;
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
}

if (theForm.email.value.length < 6)
{
allValid = false;
}

if (!allValid)
{
alert("您輸入的 \"電子郵件地址\" 無效!");
theForm.email.focus();
return (false);
}

address=theForm.email.value;
if(address.length>0)
{
i=address.indexOf("@");
if(i==-1)
{
window.alert("對不起!您輸入的電子郵件地址是錯(cuò)誤的!")
theForm.email.focus();
return false
}
ii=address.indexOf(".")
if(ii==-1)
{
window.alert("對不起!您輸入的電子郵件地址是錯(cuò)誤的!")
theForm.email.focus();
return false
}

}
if (checktext(theForm.email.value))
{
alert("請您輸入有效的\"email\"!");
theForm.email.select();
theForm.email.focus();
return (false);
}

}


function checktext(text)
{
allValid = true;

for (i = 0; i < text.length; i++)
{
if (text.charAt(i) != " ")
{
allValid = false;
break;
}
}

return allValid;
}

//-->
</script>
</TD>
</TR></TBODY></TABLE></TD></TR>
<TR class=table003>
<TD colSpan=2>
<DIV align=center>
<INPUT class=input2 type=submit value=提交>
&nbsp;&nbsp;&nbsp;
<INPUT class=input2 type=reset value=重填>
</DIV></TD></TR></TBODY></TABLE>
</FORM>
<%end sub%>
</DIV>

showrec 顯示記錄子程序
<%sub showrec()
page=1
if request("page")<>"" then
page=cint(request("page"))
end if

opendb my
sql="select * from main order by user_time desc"
searchtable my,sql,rs
if rs.eof then
closetable rs
closedb my
response.write "<center>還沒有人留言呢!</center>"
exit sub
end if
rs.pagesize=perpage
rs.absolutepage=page
totalpage=rs.pagecount
%>
<DIV align=center>
<table class=jnfont5 cellspacing=1 cellpadding=3 width=650 bgcolor=#000000>
<tbody>
<tr class=table003>
<form action=index.asp method=get>
<td align=middle width="40%">
<div align=center>關(guān)鍵字:
<input type=hidden value=search name=action22>
<input class=input2 size=15 name=key2>
&nbsp;
<input class=input2 type=submit value="搜索" name="submit2">
</div>
</td>
</form>
<form name="change1" action=index.asp method=get>
<td valign=center align="center">
<%if page=1 then
response.write ("【首頁】【上頁】 ")
else
response.write ("【<a href=index.asp?page=1"&str&">首頁</a>】")
response.write ("【<a href=index.asp?page="& page-1 & str & ">上頁</a>】")
end if%>
轉(zhuǎn)到第
<select name="page" onChange="change1.submit()">
<%for i=1 to totalpage
if page=i then
response.write "<option selected>"&i&"</option>"
else
response.write "<option >" &i&"</option>"
end if
next
%>
</select>

<%
if page=totalpage then
response.write ("【下頁】【尾頁】")
else
response.write ("【<a href=index.asp?page=" & page+1 & str & ">下頁</a>】")
response.write ("【<a href=index.asp?page=" & totalpage & str& ">尾頁</a>】")
end if%>
</td>
</form>
</tr>
</tbody>

<br>
<%
for i=1 to perpage
if not rs.eof then
%>
<TABLE cellSpacing=1 cellPadding=3 width=650 bgColor=#000000>
<TBODY>
<TR bgColor=#ffffff>
<TD class=table001 vAlign=top width=120 rowSpan=2>
<CENTER>
<TABLE class=jnfont7>
<FONT color=#ffffff><%=rs("user_name")%></FONT> <TBODY></TBODY>
</TABLE>
<IMG src="<%=rs("user_face")%>" border=0 width="82" height="90"> <BR>
來自- <%=rs("user_from")%>
</CENTER>
</TD>
<TD class=table002 style="WORD-BREAK: break-all" vAlign=top width=530
height=105>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border="0">
<TBODY>
<TR>
<TD width=26><IMG height=24 src=http://cfan.net.cn/info/"images/post.gif" width=24></TD>
<TD>留言內(nèi)容:
<%if rs("user_email")<>"" then%>
<A title="給<%=rs("user_name")%>發(fā)信" href="mailto:<%=rs("user_email")%>">
<IMG height=16 src=http://cfan.net.cn/info/"images/email.gif" width=16 border=0>信箱</A>
<%end if%>
<%if rs("user_http")<>"" then%>
<A title="訪問<%=rs("user_name")%>的主頁" href=<%=rs("user_http")%> target=_blank >
<img height=16 src=http://cfan.net.cn/info/"images/homepage.gif"
width=16 border=0>主頁</a>
<%end if%>
<%if rs("user_oicq")<>"" then%>
<A title="<%=rs("user_name")%>的QQ號碼:
<%=rs("user_oicq")%>"
href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("user_oicq")%>"
target=_blank>
<IMG height=16 src=http://cfan.net.cn/info/"images/oicq.gif" width=16 border=0><%=rs("user_oicq")%></A>
<%end if%>
<IMG height=15 alt="<%=rs("user_ip")%>" src=http://cfan.net.cn/info/"images/ip.gif" width=16>
<%=rs("user_ip")%> </TD>
<TD width=80 align="center">第 <%=i+(page-1)*perpage%> 條 <a href="#top" title=回頂部>∧</a></TD>
</TR>
</TBODY>
</TABLE>
<HR SIZE=1>
<%=rs("user_ly")%> </TD>
</TR>
<TR class=table001>
<TD height=13 align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if session("lybmanage")<>"" then
response.write "<a href='index.asp?action=delete&id="&rs("user_id")&"'>刪除</a>"
end if%>
</td>
<td align="right">發(fā)表于: <%=rs("user_time")%>
<%if rs("user_replay") then%>
回復(fù)于:<%=rs("user_reptime")%>
<%end if%>
</td>
</tr>


</TD>
</TR>
</TBODY>
<%if rs("user_replay") or session("lybmanage")<>"" then%>
<tr class=table002>
<td valign=top width=120>
<div align=center>版主回復(fù)<br>
<img src=http://cfan.net.cn/info/"images/repost.gif"
border=0 width="24" height="24"><br>
<table class=jnfont5>
<%=user%>

</div>
</td>
<td width=530>
<table class=jnfont5>
<%if rs("user_replay") and session("lybmanage")="" then%><%=rs("user_rep")%>
<%else%>
<tbody><tr><td><form onsubmit="return check(this)" action="index.asp" method="post">
<textarea class=testarea1 name="rep" cols="44" rows="5">
<%if rs("user_replay") then response.write unpro(rs("user_rep"))%></textarea>
<input type="hidden" name="action" value="replay">
<input type="hidden" name="id" value="<%=rs("user_id")%>">
<script language="JavaScript">
function check(theForm)
{
if (theForm.rep.value == "")
{
alert("請輸入回復(fù)內(nèi)容!");
theForm.rep.focus();
return (false);
}
}
</script>
<input class=input2 type="submit" value="回復(fù)">
</form></td></tr></tbody>
<%end if%>

</td>
</tr>
<%end if%>
</TABLE>
<BR>
<%rs.movenext
end if
next
closetable rs
closedb my
end sub
%>

顯示登錄表單子程序
<%sub showlogin()%>
<br>
<table cellspacing=1 cellpadding=0 width=200 align=center bgcolor=#000000
border=0>
<tbody>
<tr class=table003>
<td width="50%">
<table class=jnfont7 align=center>
<font color=#ffffff>管理員登錄</font> <tbody></tbody>

</td>
</tr>
<tr class=table001>
<td valign=top width="50%">
<table cellspacing=1 cellpadding=0 width="100%" border=0>
<tbody>
<form name="login" onsubmit="return check2(login)" action="index.asp" method="post">
<tr>
<td class=jnfont3 width="100%">
<p align=center>用戶名:
<input class=input1 maxlength=20 size=13 name="user">
<br>
密&nbsp; 碼:
<input class=input1
type=password maxlength=20 size=13 name="pwd">
<br>
<input type="hidden" name="action" value="login">
<input class=input1 type=submit value=" 登 陸 ">
</p>
</td>
</tr>
<tr>
<td class=jnfont3 width="100%">
<p align=right>
<script language="JavaScript">
function check2(theForm)
{
if (theForm.user.value == "")
{
alert("請輸入用戶名!");
theForm.user.focus();
return (false);
}
if (theForm.pwd.value == "")
{
alert("請輸入密碼!");
theForm.pwd.focus();
return (false);
}
}
</script>
『<a
href="index.asp">返回</a>』</p>
</td>
</tr>
</form>
</tbody>

</tr>
</tbody>

<%end sub%>

顯示修改信息表單
<%sub showmodify()
opendb my
opentable my,"admin",rs%>
<table cellspacing=1 cellpadding=0 width=300 align=center bgcolor=#000000
border=0>
<tbody>
<tr class=table003>
<td width="50%">
<table class=jnfont7 align=center>
<font color=#ffffff>留言薄信息修改</font> <tbody></tbody>

</td>
</tr>
<tr class=table001>
<td valign=top width="50%">
<table cellspacing=1 cellpadding=0 width="100%" border=0>
<tbody>
<form onsubmit="return check(this)" action="index.asp" method="post">
<tr>
<td class=jnfont3 width="30%" align="right" height="15">用戶名: </td>
<td class=jnfont3 width="70%" height="15"><%=rs("admin_user")%> </td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">密&nbsp; 碼:
</td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=password maxlength=20 size=13 name=pwd>
輸入密碼才能修改</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">新密碼: </td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=password maxlength=20 size=13 name=newpwd>
不改請留空</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">確定新密碼: </td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=password maxlength=20 size=13 name=newpwd2>
重輸新密碼</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">昵稱: </td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=text maxlength=20 size=13 name=nick value="<%=rs("admin_nick")%>">
留言薄名字</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">姓名: </td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=text maxlength=20 size=13 name=name value="<%=rs("admin_name")%>">
版主名字</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">主頁: </td>
<td class=jnfont3 width="70%" height="15">
<input class=input1
type=text maxlength=100 size=30 name=homepage value="<%=rs("admin_homepage")%>">
</td>
</tr>
<tr>
<td class=jnfont3 width="30%" align="right" height="15">每頁顯示: </td>
<td class=jnfont3 width="70%" height="15">
<select name="perpage">
<%for i=5 to 20 step 5
if rs("admin_perpage")=i then
response.write "<option selected>"&i&"</option>"
else
response.write "<option >" &i&"</option>"
end if
next
%>
</select>
條留言 </td>
</tr>
<tr>
<td class=jnfont3 width="100%" align="center" colspan="2" height="15">
<input type="hidden" name="action" value="modify">
<input class=input1 type=submit value=" 修 改 " name="submit">
</td>
</tr>
<tr>
<td class=jnfont3 width="100%" colspan="2">
<p align=right>
<script language="JavaScript">
function check(theForm)
{
if (theForm.pwd.value == "")
{
alert("請輸入密碼!");
theForm.pwd.focus();
return (false);
}
if (theForm.newpwd.value != "")
{
if (theForm.newpwd.value != theForm.newpwd2.value)
{
alert("兩次輸入的密碼不相同!");
theForm.newpwd.focus();
return (false);
}
}
if (theForm.nick.value == "")
{
alert("請輸入昵稱!");
theForm.nick.focus();
return (false);
}
if (theForm.name.value == "")
{
alert("請輸入姓名!");
theForm.name.focus();
return (false);
}
if (theForm.homepage.value == "")
{
alert("請輸入您的主頁!");
theForm.homepage.focus();
return (false);
}
}
</script>
『<a
href="index.asp">返回</a>』</p>
</td>
</tr>
</form>
</tbody>

</tr>
</tbody>

<%closetable rs
closedb my
end sub
%>

最后,加上文件尾部的版權(quán)引用:
<!--#include file="bott.htm" -->

為了彈出一個(gè)窗口來顯示頭像和UBB用法,在<head></head>之間加入一個(gè)JS腳本:
<script language=JavaScript>
function popwin3(path){
window.open(path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>


好了。所有的代碼都寫完了,最后就是測試了。
因?yàn)槭堑谝淮螌戇@么長的文章,不管是編排上還是內(nèi)容上,總會(huì)有不足的地方,還請大家多多見諒
有什么意見,可以提出來,爭取以后寫得更好。
下載地址:http://www.he-xi.com/download/newlyb.zip
說明:下載后解壓到一個(gè)文件夾中,把這個(gè)文件傳到站點(diǎn)根目錄下,然后訪問該目錄下的index.asp
演示地址:http://www.he-xi.com/newlyb/

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

網(wǎng)站地圖xml | 網(wǎng)站地圖html
亚洲调教视频在线观看| av在线下载| aaaa黄色片| 国产夜色精品一区二区av| 香蕉久久精品日日躁夜夜躁| 2020久久国产精品| 97精品一区二区三区| 美洲精品一卡2卡三卡4卡四卡| 天天看片天天操| 国产成人亚洲综合无码| 美女mm1313爽爽久久久蜜臀| 亚洲欧美日韩图片| 欧美91福利在线观看| 国产中文伊人| 久久99国产精一区二区三区| 国产成人羞羞电影网站在线观看| 亚洲v片在线观看| 亚洲第一成肉网| 国产精品调教视频| 谁有免费的黄色网址| 最近中文字幕mv2018在线高清| 亚洲国产一区二区三区网站| 97一区二区三区| 国产+成+人+亚洲欧洲自线| 国产免费福利网站| 欧美色xxx| 亚洲精品美女| 日韩免费高清视频| 2023av在线| 日本wwwxxxx| 精品久久久久一区二区三区| 香蕉国产在线| 93久久精品日日躁夜夜躁欧美| 精品久久视频| 日本免费在线视频不卡一不卡二| 亚洲精品视频在线观看免费| 久久九九热视频| 性做久久久久久免费观看欧美| 成 人 黄 色 小说网站 s色| 亚洲黄色毛片| 一卡二卡3卡四卡高清精品视频| 四虎成人免费观看在线网址| 日韩午夜视频在线观看| 免费黄色片网站| 69成人免费视频| 黄色av免费观看| 国产高清自拍一区| 永久免费av网站| 五月婷婷另类国产| 色综合天天综合色综合av| 国产亚洲精品久久久久久青梅| 中文字幕一区在线观看| 国产精品成人aaaa在线| 欧美黄色免费看| 香蕉视频在线网站| 好爽好深好紧好大| 日韩欧美国产片| 亚洲老妇色熟女老太| 免费免费啪视频在线观播放| 欧美在线视频观看| 天堂√中文最新版在线| 色哺乳xxxxhd奶水米仓惠香| 日本精品在线中文字幕| 天天综合久久| 国产女主播喷水高潮网红在线| 亚洲精品一级二级三级| √8天堂资源地址中文在线| 在线观看制服搞黄视频| 国产精品超碰| 成人国产一区二区三区| 久久国产精品精品国产色婷婷| 久久精品亚洲精品国产欧美| 色猫咪免费人成网站在线观看| 亚洲第一av网站| www.成人网.com| 日韩毛片在线观看| 中文字幕免费一区二区三区| 日本免费一区二区视频| 一区二区不卡在线视频 午夜欧美不卡'| free性欧美高清另类| 成人在线免费观看91| 亚洲国内自拍| 99视频在线免费| 成人app下载| 中文字幕21页在线看| 成人久久精品视频| 夜久久久久久| xxxx影院| 亚洲中文字幕无码专区| 一本色道精品久久一区二区三区| 国产成人精品午夜视频免费| 无码一区二区精品| 国产一区二区三区的电影| 久久精品国产2020观看福利| 国产精品99久久久久久动医院| 你懂得视频在线观看| 国产偷人妻精品一区二区在线| 久青草国产97香蕉在线视频| 精品欠久久久中文字幕加勒比| 久久国产精品久久精品| 国产一区二区剧情av在线| 欧美国产高跟鞋裸体秀xxxhd| 国产精品久久久久久久久久久久| 日本不卡的三区四区五区| 午夜精品久久99蜜桃的功能介绍| 亚洲人成精品久久久久久| 日韩美女视频一区| 日韩国产欧美一区二区三区| 91精品国产91久久| 国产素人在线观看| 国产精品久久久久久免费免熟| 俺去俺来也在线www色官网| 亚洲综合色丁香婷婷六月图片| 久久av高潮av| 亚洲视频天天射| 日日摸夜夜爽人人添| 日本韩国欧美在线观看| 成人aaaa免费全部观看| 亚洲成熟丰满熟妇高潮xxxxx| 国产又粗又猛又黄视频| 国产无精乱码一区二区三区| 尤物九九久久国产精品的特点| 青草草在线视频| 久久久久.com| 伊人久久亚洲综合| 欧美日韩国产第一页| 色呦呦在线免费观看| 午夜精品一区二区三区视频免费看| 我不卡伦不卡影院| 97在线观看免费视频| 欧美性极品少妇| 国模无码视频一区二区三区| 2024最新电影在线免费观看| 欧洲国内综合视频| 精品女同一区二区三区在线播放| 欧美bbxxx| 亚洲国产精品日韩专区av有中文| 奇米影视888狠狠狠| 国产不卡精品| 精品国产黄a∨片高清在线| 91精品国产综合久久久久久久久久| 欧美福利视频一区| 亚洲日韩中文字幕在线播放| 亚洲一区亚洲二区亚洲三区| julia京香一区二区三区| 国产在线免费视频| 国产97色在线|日韩| 久久噜噜噜精品国产亚洲综合| 国产亚洲高清一区| 国产精品第2页| 91精品国产91综合久久蜜臀| 亚洲少妇一区二区三区| 风流少妇一区二区| 精品一区二区三区免费播放| 在线看片你懂得| 成人在线视频一区二区三区| 一区二区三区黄色| 亚洲国产高清一区二区三区| 在线精品日韩| 91九色在线观看视频| 亚洲国产电影在线观看| 久久国产剧场电影| 亚洲女色av| 日本在线成人一区二区| 亚洲精品三级| 亚洲国产黄色| 欧美日韩一区二区高清| 日批视频在线免费看| 日韩国产成人无码av毛片| 在线观看精品视频看看播放| 成 人片 黄 色 大 片| 国产字幕视频一区二区| 91高清国产| 欧美精品一区二区精品网| 亚洲一级在线观看| 97久久夜色精品国产| 亚洲人吸女人奶水| 国产精品无码午夜福利| 亚洲v日本v欧美v久久精品| 蜜桃欧美视频| 国产黄在线看| 一区二区三区四区视频在线| 朝桐光一区二区| 91福利资源站| 国产精品av一区二区| 亚洲男人天堂久| 欧美aaa大片视频一二区| 欧美精品久久久久久久免费观看| 91亚洲精品视频| 国产精品久久久午夜夜伦鲁鲁| 亚洲狠狠婷婷综合久久久久图片| 亚洲av毛片基地| 色狠狠色噜噜噜综合网| 一个人看免费www视频有多爽| 一本久道中文无码字幕av| 久久午夜福利电影| 中国老熟女重囗味hdxx| 免费不卡的av| 国产二级c片l毛片| 黄色视屏免费在线观看| 日本黄色小说视频| 免费精品视频一区二区三区| www.亚洲一区二区三区| 国产成人一级片| 久久99精品久久久| 大片在线观看网站免费收看| 国产午夜精品久久久| 91蜜桃网址入口| 亚洲黄色高清| 欧美巨大丰满猛性社交| 久久天天躁夜夜躁狠狠躁2022| 欧美激情国产日韩精品一区18| 亚洲精品在线电影| av片免费观看| 日韩国产精品视频| 岛国电影中文在线| 久久久综合激的五月天| 亚洲无码精品一区二区三区| 91久久在线播放| 欧美成人一区在线观看| 青青草草视频| 999在线精品视频| 日韩精品一区二区三区swag| av免费观看久久| 国产伦精品一区二区三区视频免费| 国产人妻精品午夜福利免费| 欧美日韩中字一区| 99在线精品视频在线观看| 精品亚洲一区二区三区在线播放| 尤物视频免费观看| 日本成人在线一区| 精品国产伦一区二区三区| 一区二区三区四区在线观看国产日韩| 一二三四在线观看视频| 久久夜色精品国产欧美乱| 亚洲一区在线电影| 男男激情在线| 6080国产精品| 黄污视频在线看| 久热国产在线| jlzzjlzz欧美大全| 欧美在线免费视频| 日本一区二区成人| xf在线a精品一区二区视频网站| 亚洲香蕉在线观看| 99久re热视频这里只有精品6| 福利视频在线| 午夜电影一区| 九九九在线观看视频| 日韩av电影免费播放| 99热这里只有精品免费| 成人avav影音| 午夜福制92视频| 国产在线国偷精品免费看| 波多野吉衣av| 国产亚洲精品拍拍拍拍拍| 国产v片在线观看| 欧美日韩国产免费一区二区| 亚洲小说图片| 欧美精品高清视频| 成人美女视频在线观看18| 国产乱淫av片| 菠萝蜜视频在线观看一区| 在线欧美一区二区| 国产美女精品写真福利视频| 国产专区综合网| 丰满人妻老熟妇伦人精品| 亚洲一区网址| 国产午夜激情视频| 日韩亚洲一区在线| 久久精品国产99久久| 96pao国产成视频永久免费| 亚洲精品动漫100p| 久久久久久综合| 少妇激情综合网| 欧美深性狂猛ⅹxxx深喉| а 天堂 在线| 不卡伊人av在线播放| 午夜精品福利一区二区三区av| 国产在线拍揄自揄拍无码| 色爱区综合激月婷婷| 亚洲黄色小说网址| 亚洲国产精品久久久久婷蜜芽| 久久久高清一区二区三区| 欧美一区二区三区在线观看视频| 久久综合色之久久综合| av亚洲免费| 日韩av色在线| aaa一级黄色片| 天天色天天干天天色| 日韩久久精品网| 波多野结衣视频播放| 91精品国产91久久久久久青草| 日韩欧美电影一区二区| 成人免费淫片视频软件| 在线观看亚洲一区| 国产欧美日韩精品综合| 日韩一区中文字幕| 欧美wwwxxxx| 大地资源第二页在线观看高清版| 国产黄色高清在线| 欧美午夜精品久久久久久浪潮| 亚洲天堂影视av| 国产精品99久久久久久成人| 欧美三日本三级少妇三99| 美女一区二区视频| 销魂美女一区二区三区视频在线| 9l视频自拍蝌蚪9l视频| 欧美视频亚洲色图| 日本三级一区二区三区| **国产精品| 国产精品传媒精东影业在线| 欧美国产一区二区三区| 日韩精品视频一区二区在线观看| 亚洲欧美第一页| 久久av一区二区三| 国产精品吊钟奶在线| 欧美大片免费| 国产高清视频免费| 三年中国国语在线播放免费| 欧美视频在线观看 亚洲欧| 日韩精品一区二区三区视频在线观看| 蜜桃一区二区三区| 国产成人无码a区在线观看视频| 青青在线视频一区二区三区| 中文字幕一区二区三区中文字幕| av先锋影音资源站| 99久久久免费精品|