📄 1.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=1.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=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=698 align=center border=0>
  <TBODY>
  <TR>
    <TD width=690>
      <P><SPAN lang=EN-US 
      style="FONT-SIZE: 12pt; mso-bidi-font-family: 宋体"><FONT face=宋体 
      size=3><IMG height=173 src="1.files/IMAGE002.gif" width=100 align=baseline 
      border=0 v:shapes="_x0000_i1025"></FONT></SPAN></P>
      <P align=center><B>&nbsp; <SPAN lang=EN-US 
      style="COLOR: red; FONT-FAMILY: DFKai-SB; mso-bidi-font-family: 宋体"><FONT 
      face=DFKai-SB color=red><IMG height=50 src="1.files/IMAGE003.gif" width=95 
      align=baseline border=0 v:shapes="_x0000_i1026"> 
      <BR><BR></FONT></SPAN></B><FONT face=隶书 color=#0000ff 
      size=7><%=rs("title")%></FONT><B> <SPAN lang=EN-US 
      style="COLOR: red; FONT-FAMILY: DFKai-SB; mso-bidi-font-family: 宋体"><FONT 
      face=DFKai-SB color=red><BR></FONT></SPAN></B></P>
<%=ubbcode(formatierung(rs("message")))%>      <P align=center><FONT size=3><FONT face=楷体_GB2312>　　</FONT><A 
      href="javascript:window.close();"><span style="text-decoration: none">关闭窗口</span></A> <BR></FONT>
		<B><IMG height=45 
      src="1.files/IMAGE005.gif" width=68></B> </P></TD></TR></TBODY></TABLE></DIV>
<DIV id=w1 style="WIDTH: 15px; HEIGHT: 19px"></DIV>
<DIV align=center>
<TABLE id=Table1 cellSpacing=0 cellPadding=0 width=714 border=0>
  <TBODY>
  <TR>
    <TD align=middle width=617><FONT face=华文行楷 color=#ff0000 
      size=4>作者：</FONT><FONT face=华文行楷 color=#ff00ff size=5><%=selectlook(rs("autor"),"user_name")%></FONT><FONT 
      face=华文行楷 color=#ff6600 size=4></FONT></TD>
    <TD align=middle width=93></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
<%rs.close%>
⌨️ 快捷键说明

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