?? Language=VBScript%>
<%
'on error resume next
Response.Buffer=true
Response.Expires=0
%>
<%
dim cn, rs, sql
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
dim classcode, keyno,url
classcode = "107"
url="member.asp"
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) then
keyno = ""
end if
if keyno<>"" then
sql="select * from miscell where state='1' and keyno="&keyno
else
sql="select * from miscell where classcode='"+classcode+"' and state='1' order by sortnum"
end if
rs.Open sql, cn, 0, 3, 1
if not rs.EOF then
dim title, content, picflag, picflag2, flag, creadate, picalign, infocount
keyno = rs("keyno")
title = trim(rs("title"))
content = trim(rs("content"))
picflag = rs("picflag")
picflag2 = rs("picflag2")
flag = rs("flag")
creadate = rs("creadate")
picalign = trim(rs("picalign"))
infocount = rs("infocount")
else
Response.End
end if
%>
<%
dim currentMenuId, rs1, sql1
'ָʾǰIJ˵
currentMenuId = ""
set rs1 = Server.CreateObject("adodb.Recordset")
flag=Request.QueryString("flag")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
company = fixedReplaceStr(Request.Form("company"), 20)
name = fixedReplaceStr(Request.Form("name"), 10)
companykind = fixedReplaceStr(Request.Form("companykind"), 20)
school= fixedReplaceStr(Request.Form("shool"), 20)
companyduty= fixedReplaceStr(Request.Form("companyduty"), 20)
workarea= fixedReplaceStr(Request.Form("workarea"), 20)
companymancount= fixedReplaceStr(Request.Form("companymancount"), 20)
subcompany= fixedReplaceStr(Request.Form("subcompany"), 20)
hfaddress= fixedReplaceStr(Request.Form("hfaddress"), 50)
hfzip= fixedReplaceStr(Request.Form("hfzip"), 6)
qzaddress= fixedReplaceStr(Request.Form("qzaddress"), 20)
qzzip= fixedReplaceStr(Request.Form("qzzip"), 20)
registermoney= fixedReplaceStr(Request.Form("registermoney"), 10)
nowmoney= fixedReplaceStr(Request.Form("nowmoney"), 20)
website= fixedReplaceStr(Request.Form("website"), 20)
prduty= fixedReplaceStr(Request.Form("prduty"), 20)
glory= fixedReplaceStr(Request.Form("glory"), 50)
commonweal= fixedReplaceStr(Request.Form("commonweal"), 50)
phone = fixedReplaceStr(Request.Form("phone"), 20)
fax = fixedReplaceStr(Request.Form("fax"), 20)
if companymancount="" then
companymancount=0
elseif companynumber="" then
companynumber=0
end if
dim rscnt ,cnt
set rscnt = Server.CreateObject("adodb.Recordset")
rscnt.open "select count(*) as cnt from member" ,cn,3,1,1
if not rscnt.eof then
cnt=rscnt("cnt")+1
else
cnt=1
end if
set rscnt=nothing
sql = "insert into member (keyno,company,realname,companykind,companymancount,subcompany,registermoney,companynumber,hfaddress,hfzip,qzaddress,qzzip,website,phone,fax,email,prduty,glory,commonweal) values("&cnt&",'"&company&"','"&name&"','"&companykind&"',"&companymancount&",'"&subcompany&"',"®istermoney & ","&companymancount&",'"& hfaddress & "','"& hfzip & "','"&qzaddress&"','"&qzzip&"','"&website&"','"& phone&"','"&fax&"','"&email&"','"&prduty&"','"&glory&"','"&commonweal&"')"
cn.Execute sql
Response.Redirect "member.asp?flag=1"
end if
rs.Close
%>
|
|
˴ |
<%
sql = "select keyno, title ,content from miscell where classcode='"&classcode&"' and state='1' order by sortnum"
rs.Open sql, cn, 0, 1, 1
%>
<%
do while not rs.eof
if keyno=rs("keyno") then %>
<%else%>
<%
end if
rs.MoveNext
loop
%>
|
|
|