⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 topiclink.asp

📁 包含注册、登陆、留言、创建主题等功能
💻 ASP
字号:
<!--#include file=04406shujuku.asp-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>流言飞语</title>
<%Dim writer,topic,content
writer=request.Form("username")
topic=request.Form("title")
content=request.Form("content")
%>
<script language="JavaScript">
function check()
{
    if(document.liuyan_form.hiddenusername.value=="")
   {
       alert("您还没有登录,请先登录在留言!");
       return false;
	}
   else
   { 
      if(document.liuyan_form.username.value==""||document.liuyan_form.topic.value==""||document.liuyan_form.content.value=="")
       {
	       alert("登录但信息填写不全,请认真填写");
		   return false;
	   }
	   else    
	   { 
	       alert("登录且信息完全,存储留言信息!");
		   return true ;
	   }
	}
}
</script>
<%
Dim rs1,rs2
Dim sql1,sql2
sql1="select title as title1,content as content1,username as username1,vdate as date1 from message where id="&request.QueryString("ID")
sql2="select title as title2,content as content2,username as username2,vdate as date2 from ret_message where preid="&request.QueryString("ID")
set rs1=Conn.execute(sql1)
set rs2=Conn.execute(sql2)
%>

<style type="text/css">
<!--
.STYLE1 {color: #0066FF}
-->
</style>
</head>
<body topmargin="20px"bgcolor="#FFFFFF" >
<div style="height:300px;width:100%;overflow-x:hidden;overflow-y:hidden;"><img src="background04406.jpg" height="100%" width="100%">
</div>
<table width="100%" height=20px align="center">
<tr bgcolor="#99CCFF" align="center">
<td align="center" height="25" style="text-decoration:none; color:#FFFFFF; font-family:华文行楷">>>欢迎<%=request.cookies("name")%>光临:
<a href="newlogin.asp" style="text-decoration:none; color:#FFFFFF; font-family:华文行楷">退出</a>|
<a href="identitycheck.asp" style="text-decoration:none; color:#FFFFFF; font-family:华文行楷">发表文章</a>
</td>
</tr>
</table>
<table width="90%" border="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF" >
<tr height='30'><td width='25%'><B>-->本页主题:<%response.write(rs1("title1"))%></B></td><td width='70%'>创建时间:<%response.write(rs1("date1"))%></td></tr>
<tr height='300'><td><center><img height="180" width="150" src="666.jpg"></center><br><B>&nbsp;&nbsp;&nbsp;版主:<%response.write(rs1("username1"))%></B></td><td><p><br>&nbsp;&nbsp;&nbsp;&nbsp;<%response.write(rs1("content1"))%><br><br><br><br></p></td></tr>
</table>
<p style="font-family:'华文行楷'; color:'#3366FF'; font-size:18pt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>相关回复:</B></p>
<table align="center" width="90%" border="1" bordercolor="#CCCCCC" >
<%rs1.close
while not rs2.eof%>
<tr  height='300'>
<td width="25%"><center><img height="200" width="150" src="1111.jpg"></center><br><B>&nbsp;&nbsp;&nbsp;留言人:<%response.write(rs2("username2"))%></B></td>
<td align="left" valign="top"><div style="height:270px;width:95%;overflow-x  :hidden;overflow-y:hidden;"><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<%response.write(rs2("content2"))%></div>
<div>留言标题:<%response.write(rs2("title2"))%>&nbsp;&nbsp;&nbsp;&nbsp;回复时间:<%response.write(rs2("date2"))%></p></td>
</tr>
<%rs2.MoveNext
Wend
rs2.close
%>

</table>
<!--留言板面的设置-->
<p style="font-family:'华文行楷'; color:'#3366FF'; font-size:24pt">&nbsp;&nbsp;&nbsp;&nbsp;有兴趣请来此</p>
<form name="liuyan_form" action="liuyanstore.asp?ID=<%=request.QueryString("ID")%>" method="post" >
<table border="1" width="90%" align="center" cellspacing="0">
<tr height="40" bgcolor="#FFFFFF" align="center" valign="middle">
<td width="15%">作者:</td>
<td width="85%"><input type="text" name="username" size="50"></td></tr>

<tr height="40" bgcolor="#FFFFFF" align="center" valign="middle">
<td width="15%">主题:</td>
<td width="85%"><input type="text" name="title" size="50"></td></tr>

<tr height="40" bgcolor="#FFFFFF" align="center" valign="middle">
<td width="15%">内容:</td>
<td width="85%"><textarea name="content" cols="50" rows="6"></textarea></td></tr>

<tr><td colspan="2" height="40" bgcolor="#FFFFFF" align="center"><input type="hidden" name="hiddenid" value="<%=request.QueryString("ID")%>">
<input type="hidden" name="hiddenusername" value="<%=request.cookies("username")%>">
<input type="hidden" name="hiddendt"  value=<%=date()%>>
<input type="submit" value="提交留言" onClick="return check()">&nbsp;&nbsp;&nbsp;&nbsp;
<input type="reset" value="重新输入"></td></tr>
</table>
</form>
<!--注:提交是onsubmit="return check()"和onclick="return check()只能用一个"-->
</table><p></p>
<table width="100%" height=20px align="center">
<tr bgcolor="#99CCFF" align="center"><td align="center" height="25" style="text-decoration:none; font-size:18pt;color:#FFFFFF; font-family:华文行楷">本网站作者:张焕玲   QQ:276679653</td></tr>
<tr bgcolor="#99CCFF" align="center"><td align="center" height="25" style="text-decoration:none; color:#FFFFFF; font-family:华文行楷">email:<a href="mailto:zhhl022@sina.com">zhhl022@sina.com</a></td></tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -