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

📄 view1.asp

📁 心里在线咨询系统 怎么还有字数限制
💻 ASP
字号:
🔍 
<!--#include file="ubb/ubbcode.asp" -->
<!--#include file="../config/sys.asp" -->
<%if (session("user_name")="" and session("user_password")="") then
if (not youkeYN) then
response.Redirect url&"error.asp?msg=对不起，本页面目前禁止游客浏览！" 	
end if
end if
id =cint( request.querystring("id"))
s = cint(request.querystring("s"))
sql = "update postings set views = views + 1 where id = " & id
conn.Execute(sql)
A="1"
IF selectROLE2(SESSION("USER_NAME")) THEN
sql = "select title, id, autor, views, replies, datum, datum_updated, message,editflog from postings where  helpflog='"&a&"'   AND id = " & id 
else
sql = "select title, id, autor, views, replies, datum, datum_updated, message,editflog from postings where  helpflog='"&a&"'  and autor='"&session("user_name")&"' AND id = " & id 
end if
set rs = conn.Execute(sql)
IF RS.EOF THEN
response.Redirect url&"error.asp?msg=您这样的操作本系统令人感到耻辱！&logout=true" 	
END IF
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="ubb/ubbcode.js" type="text/JavaScript"></script>

</head>

<body>
<script>
function delete_eintrag(id, p, s, parent) {
	msg=window.open("delete.asp?id="+id+"&p="+p+"&s="+s+"&parent="+parent,"","height=200,width=350");
}
</script>
<%while not rs.eof
retitle = rs("title") 
parent = rs("id")%>
<div align="center">
<TABLE style="TABLE-LAYOUT: fixed" height=100% cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR height=3 width="100%"> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1> 
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD bgColor=#DCDCDC></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC></TD>
<TD bgColor=#f7f8f9 colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height="100%" cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR> 
<TD width=1 bgColor=#DCDCDC></TD>
<TD id=oINNER bgColor=#FFFFFF> 
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="100%">
					<tr>
						<td height="24" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" colspan="3">
						<font color="#999999"><b>&nbsp;&nbsp;&nbsp; 我的咨询</b></font></td>
					</tr>	<tr>
		<td bgcolor="#FFFFFF" valign="top">
<div align="center">
<table cellspacing="1" cellpadding="4" width="98%" border="0" class="a2" bgcolor="#FFFFFF">

<tr class="a1"><td colspan="4"><table width=100%><tr><td width="89%"><b><a href="<%=url%>/my_help.asp?s=<%=s%>"><font color="#FF0000"><< 返回讨论区</font></a>　<img border="0" src="images/Forum_nav.gif" width="9" height="9"> 主题：<font color="#0000FF"><%=formatierung(rs("title"))%></font></td>
  <td width=11% align=center><font color="#FF0000">[ 楼 主 ]</font></td></tr></table></td></tr>
<tr class="a3">
	<td width="25%" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">&nbsp;发帖人：<a href="../other_user.asp?user_name=<%=rs("autor")%>"><%=selectlook(rs("autor"),"user_name")%></a></td>
	<td width="25%" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">
	<a target="_blank" href="<%=selectlook(rs("autor"),"homepage")%>" title="<%=selectlook(rs("autor"),"homepage")%>">
	<img border="0" src="images/home.gif" width="23" height="22"></a><a target="_blank" href="mailto:<%=selectlook(rs("autor"),"email")%>" title="<%=selectlook(rs("autor"),"email")%>"><img border="0"  src=images/email.gif></a><a target="_blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<%=selectlook(rs("autor"),"qq")%>&Site=心理咨询平台&Menu=yes" title="<%=selectlook(rs("autor"),"qq")%>"><img border="0"src=images/qq.gif></a><a target="_blank" href="http://spaces.msn.com/<%=msn(selectlook(rs("autor"),"msn"))%>" title="<%=selectlook(rs("autor"),"msn")%>"><img border="0"src=images/msn.gif></a><img border="0" src="images/friend.gif" width="23" height="22" alt="加为好友"><img border="0" src="images/help.gif" width="23" height="22" alt="帮助说明"></td>
<td width="26%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><img src=images/time.gif> <%=rs("datum")%></td>
<td width="20%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><%if not adminreply then%><a href="help_replay.asp?id=<%=id%>&s=<%=s%>"><img src=images/replay.gif border=0></a><%else if  SELECTROLE2(SESSION("USER_NAME"))   then%><a href="help_replay.asp?id=<%=id%>&s=<%=s%>"><img src=images/replay.gif border=0></a><%end if%><%end if%><%IF SELECTROLE(SESSION("USER_NAME"),RS("autor")) THEN%><%if  SELECTROLE2(SESSION("USER_NAME")) then%><a href="javascript:delete_eintrag('<%=id%>','all','<%=s%>','<%=parent%>');"><img src=images/del.gif border=0></a><%end if%><a href="EDIT.asp?ID=<%=id%>&readid=<%=id%>"><img border="0" src="images/update.gif" ></a><%END IF%></td></tr>
<tr class="a4">
	<td colspan="4" height=40 valign=top class=365ye style="border-bottom:1px solid #000000; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; "><p><img src=images/icon.gif> <%=ubbcode(formatierung(rs("message")))%></p>
    <p align="right"><%if rs("editflog") then%>本论点由 <%=selectlook(rs("autor"),"user_name")%> 于 <%=rs("datum_updated")%> 编辑<br><%end if%> ★ ☆ ★ 本文为 <%=formatierung(rs("autor"))%>个人意见，与本站立场无关！☆ ★ ☆</p></td></tr>
<%rs.movenext
wend
sql = "select title, autor,  views, replies, datum, datum_updated, id, message,editflog from postings where connected = "& id &"  and helpflog='"&a&"' order by id" 
set rs = conn.Execute(sql)
while not rs.eof
IF RS.EOF THEN
response.Redirect url&"error.asp?msg=您这样的操作本系统令人感到耻辱！&logout=true" 	
END IF

count = count +1%>
<tr class="a1"><td colspan="4"><table width=100%><tr><td width="89%"><b>
	<img border="0" src="images/forum_readme.gif" width="10" height="10"> 主题：</b><a name="<%=count%>"><%=formatierung(rs("title"))%></a></td>
<td width=11% align=center>第 <font color="#FF0000"> <%=count%></font> 楼</td></tr></table></td></tr>
<tr class="a3">
	<td style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">&nbsp;发帖人：<a href="../other_user.asp?user_name=<%=rs("autor")%>"><%=selectlook(rs("autor"),"user_name")%></a></td>
	<td width="25%" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">
	<a target="_blank" href="<%=selectlook(rs("autor"),"homepage")%>" title="<%=selectlook(rs("autor"),"homepage")%>">
	<img border="0" src="images/home.gif" width="23" height="22"></a><a target="_blank" href="mailto:<%=selectlook(rs("autor"),"email")%>" title="<%=selectlook(rs("autor"),"email")%>"><img border="0"  src=images/email.gif></a><a target="_blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<%=selectlook(rs("autor"),"qq")%>&Site=心理咨询平台&Menu=yes" title="<%=selectlook(rs("autor"),"qq")%>"><img border="0"src=images/qq.gif></a><a target="_blank" href="http://spaces.msn.com/<%=msn(selectlook(rs("autor"),"msn"))%>" title="<%=selectlook(rs("autor"),"msn")%>"><img border="0"src=images/msn.gif></a><img border="0" src="images/friend.gif" width="23" height="22" alt="加为好友"><img border="0" src="images/help.gif" width="23" height="22" alt="帮助说明"></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><img src=images/time.gif> <%=rs("datum")%></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><%if not adminreply then%><a href="help_replay.asp?id=<%=id%>&s=<%=s%>"><img src=images/replay.gif border=0></a><%else if  SELECTROLE2(SESSION("USER_NAME"))   then%><a href="help_replay.asp?id=<%=id%>&s=<%=s%>"><img src=images/replay.gif border=0></a><%end if%><%end if%><%IF SELECTROLE(SESSION("USER_NAME"),RS("autor")) THEN%><%if  SELECTROLE2(SESSION("USER_NAME")) then%><a href="javascript:delete_eintrag('<%=id%>','all','<%=s%>','<%=parent%>');"><img src=images/del.gif border=0></a><%end if%><a href="EDIT.asp?ID=<%=RS("id")%>&readid=<%=id%>"><img border="0" src="images/update.gif"></a><%END IF%></td></tr>
<tr class="a4">
	<td colspan="4" height=40 valign=top class=365ye style="border-bottom:1px solid #000000; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; "><p><img src=images/icon2.gif> <%=ubbcode(formatierung(rs("message")))%></p>
    <p align="right"><%if rs("editflog") then%>本论点由 <%=selectlook(rs("autor"),"user_name")%> 于 <%=rs("datum_updated")%> 编辑<br><%end if%> ★ ☆ ★ 本文为 <%=formatierung(rs("autor"))%>个人意见，与本站立场无关！☆ ★ ☆</p></td></tr>
<%rs.movenext
wend
rs.close
CONN.close
set rs = nothing
set conn = nothing%></table>
			

</div>
			

</td>
	</tr>
</table>
</TD>
<TD width=1 bgColor=#DCDCDC></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR height=3 width="100%"> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1> 
<TD width=1></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1> 
<TD colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD colSpan=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</div>
</body>

</html>

⌨️ 快捷键说明

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