<%
Dim action,cg_sql,cg_rs
action=request.QueryString("action")
On Error Resume Next
If Not IsObject(cg_conn) Then Call cg_OpenConn("")
If action="save" Then
Dim name,comane,somane,tel,fox,email,title,content
name = shownone(request.Form("name"))
comane = shownone(request.Form("comane"))
somane = shownone(request.Form("somane"))
tel = shownone(request.Form("tel"))
fox = shownone(request.Form("fox"))
email = shownone(request.Form("email"))
title = shownone(request.Form("title"))
content = shownone(request.Form("content"))
If name="" Or tel="" Or title="" Or content="" Then
response.write ""
response.write ""
response.end
End If
cg_sql = "Insert into [SH_Msg] (Name,Comane,Somane,Phone,Fox,Email,Title,Content)values('"& name &"','"& comane &"','"& somane &"','"& tel &"','"& fox &"','"& email &"','"& title &"','"& content &"')"
cg_conn.execute(cg_sql)
If Not Err Then
response.write ""
response.write ""
response.End
Else
response.write ""
response.write ""
response.End
End If
End If
Function shownone(str)
If isnull(str) Or trim(str)="" Then
shownone=""
Exit Function
End If
str=server.htmlencode(Trim(str))
str=Replace(str,vbnewline," ")
str=Replace(str," "," ")
shownone=Replace(str,"'","''")
End Function
%>
欧美三级 日韩三级 国产三级,绯色av麻豆一区二区懂色,欧美日韩精品一区二区三区不卡
