<%
if request.servervariables("http_method") = "POST" then
dim gsmc, zyyw, wbwbys, wbyymd, wbyyyq, lxrmz, lxrdh, qq, email
dim sql
gsmc = request.form("gsmc")
zyyw = request.form("zyyw")
wbwbys = request.form("wbwbys")
wbyymd = request.form("wbyymd")
wbyyyq = request.form("wbyyyq")
lxrmz = request.form("lxrmz")
lxrdh = request.form("lxrdh")
qq = request.form("qq")
email = request.form("email")
if gsmc="" or zyyw="" or wbwbys="" or wbyymd="" or wbyyyq="" or lxrmz="" or qq="" or email="" then
response.clear
response.write ""
response.end
else
sql = "insert into 微博意向需求信息 (gsmc, zyyw, wbwbys, wbyymd, wbyyyq, lxrmz, lxrdh, qq, email) values (" & sqlstr( htmlencode (gsmc) )
sql = sql & "," & sqlstr( htmlencode (zyyw) )
sql = sql & "," & sqlstr( htmlencode (wbwbys) )
sql = sql & "," & sqlstr( htmlencode (wbyymd) )
sql = sql & "," & sqlstr( htmlencode (wbyyyq) )
sql = sql & "," & sqlstr( htmlencode (lxrmz) )
sql = sql & "," & sqlstr( htmlencode (lxrdh) )
sql = sql & "," & sqlstr( htmlencode (qq) )
sql = sql & "," & sqlstr( htmlencode (email) )
sql = sql & ")"
conn.execute( sql )
set conn = nothing
response.write ""
response.end
end if
end if
'数据库字符字段加引号
function sqlstr(str)
str = replace(str, "'", "''")
sqlstr = " '" & str & "' "
end function
'用于用户发布的各种信息过滤
Public Function HTMLEncode(fString)
If Not IsNull(fString) Then
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ") '
fString = Replace(fString, CHR(9), " ") '
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") '单引号过滤
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), " ")
HTMLEncode = fString
Else
HTMLEncode = ""
End If
End Function
Public Function HTMLDecode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, "
", CHR(10) & CHR(10))
fString = Replace(fString, " ", CHR(10))
HTMLDecode = fString
End If
End Function
%>