📄 lookyouandme.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<!--#include file="system/ubb.asp" -->
<html>
<head>
<title><%=title1%>--结伴同行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
call pagestart
dim id,action
action=trim(request("action"))
id=trim(request("id"))
if not isnumeric(id) then
response.Redirect("error.asp?errormsg=<li>错误的传递参数！请确定你从有效链接进入！</li>")
end if
if action="re" then
tt1=replace(request.form("textfield1"),"'","")
tt2=replace(request.form("textfield2"),"'","")
tt3=replace(request.form("textfield3"),"'","")
tt4=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if tt4= "" Then tt4=Request.ServerVariables("REMOTE_ADDR")
if len(tt2)>255 then response.redirect("error.asp?errormsg=<li>您回复的内容字数太长。规定不能超过255个汉字！</li>")
conn.execute("insert into reyouandme (yid,rname,rtext,rtime,rip) values('"&tt3&"','"&tt1&"','"&tt2&"',#"&now()&"#,'"&tt4&"')")
conn.execute("update youandme set REnum=renum+1 where id="&tt3)
closeconn
response.redirect("lookyouandme.asp?id="&tt3&"")
end if
conn.execute("update youandme set Yclick=yclick+1 where id="&id)
set rs=conn.execute("select * from youandme where id="&id)
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
<td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif"> </td>
<td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
<tr>
<td height="30" colspan="6"><table width="178" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30"> </td>
<td width="148">查 看 结 伴 同 行 信 息</td>
</tr>
</table></td>
</tr>
<tr>
<td width="80" height="28" align="center" class="table1">发布人：</td>
<td width="135" class="table1"><%=mfkiqpl(rs("Yname"))%></td>
<td width="80" align="center" class="table1">发布时间：</td>
<td width="190" class="table1"><%=mfkiqpl(rs("YTtime"))%></td>
<td width="80" align="center" class="table1">发布人地址：</td>
<td width="188" class="table1"><%=mfkiqpl(rs("Yname"))%></td>
</tr>
<tr class="tablebg">
<td height="28" align="center" class="tablebg">出游人数：</td>
<td height="28" class="tablebg"><%=rs("Ynum")%>/人</td>
<td height="28" align="center" class="tablebg">联系方法：</td>
<td height="28" class="tablebg"><%=mfkiqpl(rs("Ycall"))%></td>
<td height="28" align="center" class="tablebg">欲去景区：</td>
<td height="28" class="tablebg"><%=mfkiqpl(rs("Ygoto"))%></td>
</tr>
<tr>
<td height="28" align="center" class="table1">OICQ：</td>
<td height="28" class="table1"><%=mfkiqpl(rs("Yqq"))%></td>
<td height="28" align="center" class="table1">出游方式：</td>
<td height="28" class="table1"><%=mfkiqpl(rs("Yyou"))%></td>
<td height="28" align="center" class="table1">出发时间：</td>
<td height="28" class="table1"><%=mfkiqpl(rs("Ytime"))%></td>
</tr>
<tr class="tablebg">
<td height="28" align="center" class="tablebg">性别：</td>
<td height="28" class="tablebg"><%=rs("Ysex")%></td>
<td height="28" align="center" class="tablebg">信息主题：</td>
<td height="28" colspan="3" class="tablebg"><%=mfkiqpl(rs("Ytitle"))%></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
<td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif"> </td>
<td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="29"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width="695" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">具 体 内 容</td>
<td width="31"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr>
</table>
<table width=749 border=0 align=center cellpadding=5 cellspacing=0 class="tablebox1">
<tr>
<td height=80 width=713 style="word-break:break-all" class=text><%=ubbcode(rs("Ytext"))%></td>
</tr>
</table>
<table width=755 border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height=4></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="29"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width="695" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">备 注 事 项</td>
<td width="31"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr>
</table>
<table width=749 border=0 align=center cellpadding=5 cellspacing=0 class="tablebox1">
<tr>
<td height=80 width=713 style="word-break:break-all" class=text><%=ubbcode(rs("Ybio"))%></td>
</tr>
</table>
<table width=755 border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height=4></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
<td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif"> </td>
<td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
<tr>
<td height="30"><table width="178" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30"> </td>
<td width="148">回 复 此 条 信 息</td>
</tr>
</table></td>
</tr>
<tr>
<td height="42" class="tablebg"><table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
<script>
function check(){
if(form1.textfield1.value==""){
alert("请填写您的姓名！");
return false;
}
if(form1.textfield2.value==""){
alert("请填写您要回复的内容！");
return false;
}
}
</script>
<form action="?action=re&id=<%=id%>" method="post" name="form1" onsubmit="return check();">
<tr>
<td width="176" height="37" align="center">您的姓名：
<input name="textfield1" type="text" id="textfield1" size="12" onmouseover="this.focus();">
<input name="textfield3" type="hidden" id="textfield32" value="<%=id%>"></td>
<td width="506" height="37">内容：
<input name="textfield2" type="text" id="textfield23" onMouseOver="this.focus();" value="" size="60"></td>
<td width="58"><input type="submit" name="Submit" value="提 交"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="30" class="titletable"><table width="178" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30"> </td>
<td width="148">历 史 回 复 记 录</td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" class="tablebg"><table width="751" border="0" align="center" cellpadding="2" cellspacing="0">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from reyouandme where Yid="&id&" order by id desc"
rs.open sql,conn,1,2
if rs.eof or rs.bof then
response.write (" <tr> <td height=""26"" class=""table1""> <font color=red>暂无人对此信息回复！</font></td></tr>")
else
rs.pagesize=10
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
colori=1
a=0
do while not rs.eof and a<rs.pagesize
if colori>2 then colori=1
%>
<tr>
<td height="26" class="table1"> <%=mfkiqpl(rs("rname"))%>(IP:<%=rs("rip")%>) 在 <%=rs("rtime")%> 说：</td>
</tr>
<tr>
<td height="26"><%=ubbcode(rs("rtext"))%></td>
</tr>
<%
rs.movenext
a=a+1
colori=colori+1
loop
closers(rs)
end if
%>
</table></td>
</tr>
<tr>
<td height="30" align="center" class="titletable">
<%
response.write ("<a href=?page=1&id="&id&">首页</a> ")
if page>1 then
response.write ("<a href=?page="&page-1&"&id="&id&">上一页</a> ")
else
response.write("上一页 ")
end if
if page<pagec then
response.write("<a href=?page="&page+1&"&id="&id&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write ("<a href=?page="&pagec&"&id="&id&">尾页</a> ")
response.write ("当前："&page&"/"&pagec&"")
%> </td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
<td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif"> </td>
<td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
</tr>
</table>
<%
call pageend
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -