📄 dxtg_sec_success.asp

📁 小灵通短信网站源程序

💻 ASP

字号:

<%@ language="vbscript"%>
<%response.Expires = 0%>
<%
DbPath = SERVER.MapPath("../ccr801rainer.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqltext="select * from tougao"
rs.open sqltext,conn,3,3
'添加数据到数据库
rs.addnew
rs("leixing")=request.form("leixing")
rs("title")=request.form("title")
rs("test")=request.form("test")
rs("name")=request.form("name")
'rs("DJ")=1
rs.update
rs.close
conn.close
response.write"<SCRIPT language=JavaScript>alert('短信息发表成功，请按“确定”返回！');"
response.write"this.location.href='dxtg_main.asp';</SCRIPT>"
%>
  <%
  leixing=request.form("leixing") 
  title=request.form("title")
  test=Request.Form("test")
  name=request.form("name")
  %>
<html>
<head>
<title>短信息发表成功！</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<style>A:link {
	FONT-SIZE: 14px; TEXT-DECORATION: none
}
A:visited {
	FONT-SIZE: 14px; TEXT-DECORATION: none
}
A:active {
	FONT-SIZE: 14px; TEXT-DECORATION: none
}
A:hover {
	COLOR: red; FONT-SIZE: 14px; TEXT-DECORATION: underline
}
TD {
	FONT-SIZE: 14px
}
TH {
	FONT-SIZE: 14px; FONT-WEIGHT: bold; font-color: #0022aa
}
P {
	FONT-SIZE: 14px
}
INPUT {
	FONT-SIZE: 14px
}
SELECT {
	FONT-SIZE: 14px
}
</style>
<meta content="MSHTML 5.00.2614.3500" name="GENERATOR">
</head>
<body bgColor="#ffffff">
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -