📄 j_declaresub.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../include/Pubconn.asp"-->    
<!--#include file="../include/PubFun.asp"-->
<%username=getuser()
 s_userid=session("userid")%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>公告栏</title><link href="../cread.css" rel="stylesheet" type="text/css">

<%'###########################得到公告栏分类#############################
 set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='type'"
 AdoRS1.Open lcSql,PubConn,1,1
 typevalue=Adors1("NumValue")
 if not isNull(typevalue) then
 	DeclareType=Split(typevalue,",") 					
 end if
 Set Adors1=Nothing
 '################
 
bz=request("bz")
currentpage=request("currentpage")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
eyear=request("eyear")
emonth=request("emonth")
eday=request("eday")
stype=request("stype")
my_id=request("my_id")
now_state=request("state")

'response.write request.querystring("tag")

if request("tag")="1" then
'保存数据
save_men=s_userid   
save_date=request("declaredate")   
save_type=request("declaretype")   
save_title=request("declaretitle")   
save_text=request("declaretext") 
save_post_id=request("post_id") 

'response.write save_post_id

set saverst=server.createobject("adodb.recordset")   
'********my_id=0 表示是新增后保存(数据库中不会有这样的记录)   
savesql="select * from j_tbldeclare where cint(id)='"& save_post_id &" '"  
'response.write savesql 
saverst.open savesql,pubconn,1,3 
  
'response.write saverst.recordcount

if saverst.eof then   
	saverst.addnew
	saverst.Fields("declaredate")=save_date   
	saverst.Fields("declaremen")=save_men   
	saverst.Fields("stype")=save_type   
	saverst.Fields("title")=save_title   
	saverst.Fields("ConText")=save_text   
	saverst.Update   
else   
	saverst.Fields("stype")=save_type   
	saverst.Fields("title")=save_title   
	saverst.Fields("ConText")=save_text   
	saverst.Update   
end if                      
saverst.close

my_id=save_post_id

if my_id=0 or my_id="" then'新增保存完毕，从表中读取真正的记录id   
	s_sql="select max(id) as new_id from j_tbldeclare"   
	saverst.open s_sql,pubconn,1,3   
	if not saverst.eof then   
		my_id=saverst("new_id")   
	end if   
end if   
now_state="save"   
end if 

'*********数据保存完毕
'response.write my_id 
'response.write now_state

if my_id<>0 then
	set rst=server.createobject("adodb.recordset")
	sql="select * from J_tblDeclare where cint(id)='"& my_id &"'"
	'response.write sql
	'response.end
	rst.open sql,pubconn,1,3
	if not rst.eof then
		response.write ok
		s_date=rst("declareDate")
		s_men=rst("declareMen")
		s_type=rst("stype")
		s_title=rst("title")
		s_text=rst("ConText")
	end if
	if s_men<>"" then 
       	set rst1=server.createobject("adodb.recordset") 
    	m_sql="select name from a_stuffinfo where StuffNum='"& s_men &"' " 
    	
    	rst1.open m_sql,pubconn,1,3 
    	if not rst1.eof then 
    		menName=rst1("name") 
    	else	 
    		menname="" 
    	end if 
    end if 
else
	if len(now()=17) then
		mydate=replace(now(),"-","-0")
	end if 
	if len(now())=18 then
		ll=left(now(),len(now())-9)
		rr=right(ll,2)
		if instr(1,rr,"-")<>0 then'日期大于9
			mydate=left(now(),7)+"-0"+right(rr,1)+right(now(),9)		
		else'月份小于9
			mydate=left(now(),4)+"-0"+right(ll,4)+right(now(),9)
		end if
	end if
	if len(now())=19 then
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -