add_cs_save.asp

来自「心里在线咨询系统 怎么还有字数限制」· ASP 代码 · 共 36 行

<!--#include file="../config/conn.asp" -->
<%save = true
function zweistellig(wert)
if len(wert)<2 then wert = "0" & wert
zweistellig = wert
end function
function check1(wert)
	if len(wert)<1 then save = false
	wert = replace(wert,"'", "`")
	wert = replace(wert,chr(34), "``")
	check1 = wert
end function
function check2(wert)
	if len(wert)<1 then wert = " "
	wert = replace(wert,"'", "`")
	wert = replace(wert,chr(34), "``")
	check2 = wert
end function
autor = check1(request.form("autor"))
title = check1(request.form("title"))
message = check1(request.form("message"))
location= request.form("music")
input_date=cstr(now())
if save = true then
	sql = "insert into avionline (title,message,location,input_date,hits,autor,types)"
	sql = sql & " values('"&title&"','"&message&"','"&location&"','"&input_date&"','"&hits&"','"&autor&"','2')" 
	conn.Execute(sql)
	CONN.close
	set CONN = nothing
	response.redirect("cs.asp")
else%>
<script language="vbscript">
		msgbox "请检查填写项目是否完整！",vbInformation,"出错提示！"
		window.location="vbscript:history.back"
</script>
<%end if%>