c_marketinfo.asp

一个很好的在线购物系统

<%    
'*********************************页面说明**************************************************        
'开发者：金寿吉        
'首次开发时间：2001-08-31        
'最后一次修改时间：2001-09-04     
'主要功能：市场情报详细信息  
%>    
 
<!--#include file="../include/Pubconn.asp"-->    
<!--#include file="../include/PubFun.asp"-->        
<%    
'******************************变量的说明**********************************
dim UserName									   				'当前用户名
dim userclass  			 										'表示用户的权限级别
dim userCheck			 										'表示用户是否有审核权限
dim Authors														'表示文档的作者
dim DepartID			 										'表示文档的部门标识
dim userdepart													'当前用户所在的部门
dim ID,Mode   				 									'文档的标识和模式
dim SaveFlag,DelFlag					 						'保存和删除标志
dim DelSucc														'表示删除是否成功标志
dim lcerror														'表示错误的提示信息
dim AField														'表示文档需要显示的字段数组
Dim FieldCount													'字段的多少
dim Keyitem()	 												'保存字段值数据的数组
dim AdoRs     													'数据记录集

'*********************************设置常量和变量的值************************
'bgColor		：表示主页背景颜色					MainTable	：主表名(控制对用户的权限)
'budStyle		：表示按纽的样式					KeyField	：关键字段		
'KeyFieldName	：表示关键字段名称					ListPage	：删除后返回的页面				

const bgcolor="#ffffff"            	 							
const MainTable="C_MarketInfo"			 						
const KeyField="Subject"
Const ListPage="C_MarketInfoList.asp"
Const MainPage="C_MarketInfo.asp"
const KeyFieldName="市场情报主题"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
AField="Subject,Sales,TraitPulse,PricePulse,salepulse,AdPulse,PartSalePulse,Suggest,SuggestDescripe,Advise,ReportDate"	
%>    
<!--#include file="../BaseInfo/PageData.Server"-->      

<% 
'读取客户意见的数值
customersuggest=GetProfile("customersuggest")
customersuggest=Split(customersuggest,",")				
Set PubConn=Nothing %>    

<Script Language="VBScript">    
'******************************表单的初始化代码*****************************  
Sub formini()
 	dim mode
  	dim birthday
  	mode="<%=mode%>" '数据的显示模式
  	
	'设置表单的数据
	<% for i=1 to FieldCount %>
	 	document.forms(0).<%=Afield(i-1)%>.value="<%=keyitem(i)%>"
	<% Next %>
	
	'在浏览模式和编辑模式的情况下，主关键字不能修改
     if Mode<>"NewMode" then 								 
     	document.forms(0).Subject.ReadOnly="TRUE"
  	 else
  	 	document.forms(0).Subject.ReadOnly="False"
     end if
   	  	      
    '调整其他模式下其他数据的显示
    if Mode="ScanMode" then
     	<% for i=1 to FieldCount %>
	 		document.forms(0).<%=Afield(i-1)%>.Disabled="True"
	 	<% Next %>
	 	
	end if
	 
	if document.forms(0).sales.value="" then
	 	document.forms(0).sales.value="<%=Session("StuffName")%>"
	end if
	birthday=document.forms(0).ReportDate.value
	if birthday="" then
	 	lcMonth=Month(now())
	 	lcDay=day(now())
	 	if lcMonth<10 then 
	 		lcMonth="0"+cstr(lcMonth)
	 	else
	 		lcMonth=cstr(lcMonth)
	 	end if
	 	lcDay=Day(now())
	 	if lcDay<10 then
	 		lcDay="0"+cstr(lcDay)
	 	else
	 		lcDay=cstr(lcDay)
	 	end if
	 	birthday=cstr(year(now()))+"-"+lcMonth+"-"+lcDay
	end if
	 
	document.forms(0).pYear.value=Mid(birthday,1,4)
	document.forms(0).pMonth.value=Mid(birthday,6,2)
	document.forms(0).pDay.value=Mid(birthday,9,2)
	if document.forms(0).suggest.value="" then document.forms(0).suggest.value="无意见"
	
End Sub
  
'保存数据的函数处理