📄 fb_res.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>供需信息发布结果</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<meta content="Microsoft FrontPage 4.0" name="GENERATOR">
<script language="javascript">
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { src.style.cursor = 'hand'; src.bgColor = clrOver; }}
function mOut(src,clrIn) { if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn; }}
</script>
</head>
<body bgcolor="#FFFFFF">
<div align="center"><%
' Get request value
valgxbh = Trim(request.form("gxbh"))
valpassword = Trim(request.form("password"))
valgq = Trim(request.form("gq"))
valdwmc = Trim(request.form("dwmc"))
valspmc = Trim(request.form("spmc"))
valggxh = Trim(request.form("ggxh"))
valjndw = Trim(request.form("jndw"))
valshuliang = Trim(request.form("shuliang"))
valjiage= Trim(request.form("jiage"))
valcd = Trim(request.form("cd"))
valbz = Trim(request.form("bz"))
valjhdd = Trim(request.form("jhdd"))
valjhfs = Trim(request.form("jhfs"))
valhy = Trim(request.form("hy"))
valxqh = Trim(request.form("xqh"))
vallxr = Trim(request.form("lxr"))
vallxdh = Trim(request.form("lxdh"))
valfax = Trim(request.form("fax"))
valwz = Trim(request.form("wz"))
valemail = Trim(request.form("email"))
valbzsm = Trim(request.form("bzsm"))
valusername = Trim(request.form("username"))
'get date
snian=year(date())
syue=month(date())
sri=day(date())
if len(syue)=1 then
syue= "0" & syue
end if
if len(sri)=1 then
sri= "0" & sri
end if
valfbrq=snian & "-" & syue & "-" & sri
val_snian=request("snian1")
val_syue=request("syue1")
val_sri=request("sri1")
valjzrq=val_snian & "-" & val_syue & "-" & val_sri
Set lrs = Server.CreateObject("ADODB.Recordset")
sqlstr = "Select * from gqk where(username='"&valusername&"'and spmc='"&valspmc&"')"
'response.write sqlstr
lrs.Open sqlstr, "DSN=js_DSN; UID=sa; PWD=; DATABASE=js"
if Not(lrs.EOF and lrs.BOF) then %>
<p align="center"><font color="#0000FF"><big><strong>您所选择的供需信息已经发布过，请重新选择，<br>
或进入供需信息查询已经发布的信息！</strong></big></font>
<%
else
lrs.close
set lrs = nothing
Set lrs = Server.CreateObject("ADODB.Recordset")
sqlstr = "Select gqk.* from gqk where (gqk.gxbh = (select Max(gqk.gxbh) from gqk))"
lrs.Open sqlstr, "DSN=js_dsn; UID=sa; PWD=; DATABASE=js"
if lrs.eof and lrs.bof then
Maxgxbh=0
else
Maxgxbh=lrs("gxbh")
end if
Maxgxbh=Maxgxbh+1
'Response.Write Maxgxbh
lrs.close
set lrs = nothing
' Define SQL string
Set lrs = Server.CreateObject("ADODB.Recordset")
sqlstr = "InSERT INTO gqk(username,password,gxbh,fbrq,jzrq,gq,dwmc,spmc,ggxh,jndw,shuliang,jiage,cd,bz,jhdd,jhfs,hy,xqh,lxr,lxdh,fax,wz,email,bzsm) Values ('"&valusername&"','"&valpassword&"',"&Maxgxbh&",'"&valfbrq&"','"&valjzrq&"','"&valgq&"','"&valdwmc&"','"&valspmc&"','"&valggxh&"','"&valjndw&"','"&valshuliang&"',"&valjiage&",'"&valcd&"','"&valbz&"','"&valjhdd&"','"&valjhfs&"','"&valhy&"','"&valxqh&"','"&vallxr&"','"&vallxdh&"','"&valfax&"','"&valwz&"','"&valemail&"','"&valbzsm&"')"
'response.write sqlstr
lrs.Open sqlstr, "DSN=js_dsn; UID=sa; PWD=; DATABASE=js"
%>
<td height width="569"><div align="center"><center><table width="95%">
<TBODY>
<tr>
<td bgColor="#8080C0" height="31" width="0" valign="top" align="center"><p align="center"><big><big><strong><font
color="#ffffff">祝贺你供需信息发布成功！</font></strong></big></big></td>
</tr>
</td>
</tr>
</table>
</center></div></div>
</TBODY>
<% End if %>
<p> </p>
<hr align="center" color="#d6eefa" noShade SIZE="1">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -