rifaz.asp

企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/auto.asp" -->
<%
	    hh=clng(date())
		set rs1=server.CreateObject("adodb.recordset")
		sql1="select * from ri where ji='"&hh&"'"
		
		rs1.open sql1,CN
		if not rs1.eof then
			rs1.close
			response.Write("<script language=javascript>alert('对不起，一天只能发布一次！');location='javascript:history.go(-1)'</script>")
		else
		    sql1="select * from ri order by id desc"
		    set rs2=CN.execute(sql1)
			id1=rs2("id")+1
			mainboard=request.form("mei")
			mouse=request.form("gang")
			yun=request.form("yun")
			date1=date()
			week1=weekday(date())-1
			ji1=clng(date())
			month1=month(date())
			year1=year(date())
			sqlstr="insert into ri values (" & id1 &" , "
			sqlstr=sqlstr & mainboard &" , "
			sqlstr=sqlstr & mouse &" ,'"
			sqlstr=sqlstr & yun &"','"
			sqlstr=sqlstr & date1 &"','"
			sqlstr=sqlstr & week1 &"','"
			sqlstr=sqlstr & ji1 &"','"
			sqlstr=sqlstr & month1 &"','"
			sqlstr=sqlstr & year1 &"')"
			set rs=CN.execute(sqlstr)
			response.Redirect("rifa.asp")
			end if
%>