📄 2.asp

📁 心里在线咨询系统怎么还有字数限制
💻 ASP
字号:
<!--#include file="../../BBS/ubb/ubbcode.asp" -->
<!--#include file="../../config/sys.asp" -->
<%id =cint( request.querystring("id"))
sql = "update interaction set hits = hits + 1 where id = " & id
conn.Execute(sql)
sql = "select * from interaction where id = " & id 
set rs = conn.Execute(sql)
if rs.eof then 
			response.Redirect "error.asp" 	
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=rs("title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
type=text/css rel=stylesheet>
<STYLE type=text/css>TD {
	FONT-SIZE: 14px; LINE-HEIGHT: 28px
}
.big {
	PADDING-LEFT: 15px; FONT-SIZE: 14px; PADDING-TOP: 6px
}
</STYLE>

<META content="MSHTML 6.00.2900.2802" name=GENERATOR>
<BGSOUND balance=0 src="../<%=rs("location")%>" volume=0 loop=5></HEAD>
<BODY text=#ffffff background=2.files/bookroom.jpg>
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr:Set w = document.body

sub tp
	m=mid(t,p,1):if m="" then c=mr
	if m="`" then m="":mm=mid(mm,1,len(mm)-1)
	if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
	if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
	tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
	if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
	mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub

sub window_onload()
	w.scroll="yes"
	w.bgcolor="#A8A8A8"
	w.style.cursor="crosshair"
	'-------------------
	t=w0.innerHTML:tp
end sub
</SCRIPT>

<DIV id=w0 style="DISPLAY: none">
<TABLE width=579 align=center border=0>
  <TBODY>
  <TR>
    <TD width=573>
      <P align=left><B><FONT face=华文新魏 color=#3399ff size=7><%=rs("title")%></FONT><FONT 
      color=#3399ff size=4> <IMG height=200 src="2.files/marofake.gif" width=176 
      border=0></FONT></B></P>
      <P><IMG height=40 src="2.files/15.gif" width=40 border=0></P>
		<font color="#000000">
<%=ubbcode(formatierung(rs("message")))%>      </font>      <P></P></TD></TR></TBODY></TABLE></DIV>
<DIV id=w1></DIV>
<P align=center><FONT face=华文行楷 color=#ff0000 
      size=4>作者：</FONT><FONT face=华文行楷 color=#ff00ff size=5><%=selectlook(rs("autor"),"user_name")%></FONT></P><BR><BR></BODY></HTML><%rs.close%>
⌨️ 快捷键说明

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