📄 ask_save.asp
字号:
<!--#include file="conn.asp"-->
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from table_dayi"
rs.open sqlstr,conn,1,3
rs.addnew
rs("dayi_who")=request.Form("name")
rs("dayi_title")=changechr(request.Form("title"))
rs("dayi_question")=changechr(request.Form("question"))
rs("dayi_date")=now()
rs("dayi_isreply")=0
rs("dayi_ip")=Request.serverVariables("REMOTE_ADDR")
rs.update
conn.close
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="refresh" content="1;URL=index.asp">
<title>添加成功</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="text-align: center">
<img src="images/loading.gif" width="94" height="27">
<p align="center"><b><br>
添加成功,请等待回复</b></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -