news_add_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 41 行

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%

topic=trim(request("topic"))
topic="'" & replace(topic,"'","''") & "'"
'img=trim(request("imgname"))
'if img="undefined" Then
  'img=""
 'End if
' img=Replace(img,vbcrlf,"")
sort=trim(request("sort"))
fromw=trim(request("fromw"))
fromw="'" & replace(fromw,"'","''") & "'"
comment=request("comment")
comment=replace(comment,"'","''")
comment="'" & replace(comment,vbcrlf,"<br>") & "'"
sql="insert into news(topic,fromw,sort,comment) values("&topic&","&fromw&",'"&sort&"',"&comment&")"
opendataconn
conn.execute sql
response.redirect"news_del.asp"
closedataconn
%>