msgadd.asp

来自「用ASP写的一个论坛的程序 数据库是ACCESS 很简单」· ASP 代码 · 共 29 行

<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<%  
       n=request.Form("n")
       sj=request.Form("sj")    
       tiebaname=request.Form("tiebaname")
	   msgtitle=request.Form("msgtitle")
	   msg=request.Form("msg")
	   author=request.Form("username")
	   picurl=request.Form("picurl")
	   id=request.Form("id")
	   msg=replace(msg,vbCrLf,"<br>")
	   msg=replace(msg,vbCr,"<br>")
	   msg=replace(msg,vbLf,"<br>")
	   if n=0 then
	   msgtitle=mid(msgtitle,4,len(msgtitle)-3)
	   end if
       call msgadd(sj,n)
	   if n=0 then
	   call replyn(id,author)
	   end if
	   if n=0 then
	   response.Redirect("msgshow.asp?tiebaname=" & tiebaname & "&msgtitle=" & msgtitle & "&id=" & id )
	   end if
	   if n=1 then
	   call hits("tiebaname","count",1)
	   response.Redirect("msg.asp?tiebaname=" & tiebaname )
	   end if
%>