📄 4.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
}
</STYLE>

<META content="MSHTML 6.00.2900.2802" name=GENERATOR><BGSOUND balance=0 src="../<%=rs("location")%>" 
volume=0 loop=5></HEAD>
<BODY background=4.files/IMAGE001.gif>
<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=200:if m="." then tmp=600 else if m="," then tmp=300 else if m=" " then tmp=300
	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="90%" align=center border=0>
  <TBODY>
  <TR>
    <TD>
      <P><FONT face=宋体 size=3><SPAN lang=EN-US 
      style="FONT-SIZE: 12pt; mso-bidi-font-family: 宋体"><IMG height=173 
      src="4.files/IMAGE002.gif" width=100 align=baseline border=0 
      v:shapes="_x0000_i1025"> </SPAN></FONT></P>
      <P><SPAN style="FONT-SIZE: 16pt; FONT-FAMILY: 黑体"><%=rs("title")%> </SPAN><SPAN 
      lang=zh-cn><STRONG><FONT color=#0000ff size=7><SPAN 
      style="FONT-FAMILY: 黑体; TEXT-DECORATION: blink"><I></I></SPAN></FONT></STRONG><SPAN 
      style="FONT-SIZE: 16pt; FONT-FAMILY: 黑体">了</SPAN></SPAN><B> <FONT 
      face=DFKai-SB color=red><SPAN lang=EN-US 
      style="COLOR: red; FONT-FAMILY: DFKai-SB; mso-bidi-font-family: 宋体"><IMG 
      height=50 src="4.files/IMAGE003.gif" width=95 align=baseline border=0 
      v:shapes="_x0000_i1026"> </SPAN></FONT></B></P>
<%=ubbcode(formatierung(rs("message")))%>       <P>　　<FONT color=#ff0000 size=3><SPAN 
      style="FONT-STYLE: italic; FONT-FAMILY: 宋体; TEXT-DECORATION: blink"></SPAN></FONT><FONT 
      color=#ff0000><IMG height=48 src="4.files/IMAGE006.gif" 
      width=45></FONT><B><IMG height=45 src="4.files/IMAGE005.gif" 
      width=68></B></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 + -