📄 fbmmok.asp
字号:
<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825 E-mail:liuxing99@tom.com
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/config.asp"-->
<%
IF not isNumeric(request("qq")) then
Response.Write "<script language='javascript'>alert('对不起,QQ号码有误!');history.back();</script>"
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发布完成</title>
</head>
<body>
<%
dim frs,fsql
set frs=server.CreateObject("adodb.recordset")
fsql="select * from mmxx"
frs.open fsql,conn,1,3
frs.addnew
frs("biaoti")=replace(trim(request("biaoti")),"'","")
frs("class1")=request("class1")
frs("class2")=request("class2")
frs("yxq")=request("yxq")
frs("neirong")=replace(trim(request("neirong")),"'","")
'frs("neirong")=htmlencode(request("neirong"))
frs("fbr")=replace(trim(request("fbr")),"'","")
frs("dianhua")=replace(trim(request("dianhua")),"'","")
frs("qq")=replace(trim(request("qq")),"'","")
frs("dizhi")=replace(trim(request("dizhi")),"'","")
frs("tupian")=request("tupian")
frs("fbsj")=now()
frs("ip")=request.serverVariables("remote_host")
frs.update
Response.Write "<script language='javascript'>alert('您的信息发布成功了');</script>"
response.write "<meta http-equiv=refresh content=""1;URL=index.asp"">"
frs.close
set frs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -