?? fabiaowz.asp
字號:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
biaoti=request("biaoti")
fbiaoti=request("fbiaoti")
bm=request("bm")
mail=request("mail")
fenlei=request("fenlei")
text1=request("text1")
xm=request("xm")
dianhua=request("dianhua")
dizhi=request("dizhi")
youbian=request("youbian")
if text1=" " then
response.write "請您填寫文章內容!"
response.end
end if
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from loveshenghuo where 1<>1"
rs.open sqlstr,conn
rs.addnew
rs("biaoti")=biaoti
rs("fbiaoti")=fbiaoti
rs("bm")=bm
rs("mail")=mail
rs("fenlei")=fenlei
rs("text")=replace(text1,vbcrlf,"<br> ")
rs("xm")=xm
rs("dianhua")=dianhua
rs("dizhi")=dizhi
rs("youbian")=youbian
rs("fbriqi")=date
rs("cishu")=1
rs.update
set conn=nothing
response.write "OK!"
response.write "<a href=""fabiaowz.htm"">發表成功返回</a>"
'response.end
%>
<script language=javascript>
<!--
for(i=0;i<10000;i++);
window.location.href="wenzhangxs.asp?id=0"
//-->
</script>
<%
response.end
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -