Other windows programs

Development Platform:
VBScript

moreinfo.asp：Code Content
							<!--#include file="dbconn.asp"-->
<% 
   dim id
   dim sql
   dim rs
   dim eventid
   eventid=request.querystring("eventid")
   sql="select * from companyevent where eventid="&eventid
   set rs=conn.execute(sql)
   dim eventtype
select case rs("eventtype")
  case 1 
    eventtype="展会信息"
  case 2 
    eventtype="在线研讨"
  case 3 
    eventtype="产品推广"
  case 4 
    eventtype="新闻发布"
  case 5 
    eventtype="培训讲座"
  case 6 
    eventtype="其他"
end select  
%>   
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.CSS">
<title>Itoevent发布活动信息</title>
</head>
<body leftmargin=0 topmargin=3 marginwidth=0 marginheight=0>
<p align=right><a href="javascript:self.close()"><b>关闭窗口</b></a></p>
<div align="center"><center>
<table border="0" background="bgtitle.gif" cellpadding="0" cellspacing="0" width="400" height="40">
  <tr>
    <td align="center"><p class="title"><b><big><i>企业活动信息</big></b></td>              
  </tr>              
</table>              
</center></div>              
              
  <div align="center"><center><table align=center border="0" cellpadding="0" cellspacing="0" width="530">     <td colspan="2"><br>             
       <table border="0" cellpadding="0" cellspacing="0" width=530>    
<tr>     
          <td width=130 align="right"><b>活动名称：</b></td>     
          <td width=400 align=left><%=rs("eventname") %></td>     
        </tr>       
        <tr>             
          <td align="right"><b>活动类型：</b></td>             
           <td><%=eventtype %></td>  
        </tr> 
    
    <tr>     
          <td align="right"><b>开始时间：</b></td>     
          <td><%=rs("beginyear") %>年<%=rs("beginmon")%>月<%=rs("beginday") %>日</td> 
        </tr>       
    <tr>  
    <tr>     
          <td align="right"><b>结束时间：</b></td>     
          <td><%=rs("endyear") %>年<%=rs("endmon")%>月<%=rs("endday") %>日</td>
        </tr>      
      <tr> 
            <td align=right><b>周期：</b></td>
            <td ><% =rs("period") %></td>
            </tr>    
      <tr> 
            <td align=right><b>所在城市：</b></td>
            <td><%=rs("eventcity") %></td>
            </tr>
<tr>     
          <td align="right"><b>地点：</b></td>     
          <td><%=rs("eventaddress") %></td>     
        </tr>     
         <tr>     
          <td align="right" valign=top><b>活动介绍：</b></td>     
          <td><%=rs("eventintr") %></td>     
        </tr>    
    <tr> 
	<tr>     
          <td align="right"><b>参加人员性质：</b></td>     
          <td><% =rs("property") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>主办单位：</b></td>     
          <td><% =rs("unit1") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>承办单位：</b></td>     
          <td><% =rs("unit2") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>相关链接一：</b></td>     
          <td><% =rs("link1") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>相关链接二：</b></td>     
          <td><% =rs("link2") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>单位地址：</b></td>     
          <td><% =rs("companyaddress") %></td>     
        </tr>
	<tr>     
          <td align="right"><b>邮编：</b></td>     
          <td><% =rs("postcode") %></td>     
        </tr>
     
     <td align="right"><b>联系人：</b></td>     
          <td><%=rs("contact") %></td>     
        </tr>                         
       <tr>     
          <td align="right"><b>电话：</b></td>     
          <td><%=rs("tel") %></td>    
        </tr>    
         <tr>     
          <td align="right"><b>传真：</b></td>     
          <td><%=rs("fax") %></td>     
        </tr>   
        <tr>     
          <td align="right"><b>电子邮件：</b></td>     
          <td><%=rs("email") %></td>     
        </tr>
           <form name="formreg">
   <tr>     
          <td align="right" ><b>特殊服务：</b></td>     
          <td><input type="checkbox" value=1 name="svr1" readonly >刊登广告<input type="checkbox" value=1 name="svr2">邀约观众
              <input type="checkbox" value=1 name="svr3">反馈分析
          </td>     
        </tr> 
         <tr>     
          <td align="right" >&nbsp</td>     
          <td>
              <input type="checkbox" value=1 name="svr4">技术保障<input type="checkbox"  value=1 name="svr5">延伸服务
          </td>     
        </tr> 
             </tr>
                 <tr>     
          <td align="right"><b>受众参加:</b></td> 
          <td align=left><input type="radio" value=1 name="join1" <% if rs("blnjoin")="True" then %> checked<% end if%> readonly >是<input type="radio" readonly value=0 name="join1" <% if rs("blnjoin")<>"True" then %> checked<% end if%> readonly >否              
          </td>     
        </tr>          
    </form>       
       
      </table>     
      </td>     
    </tr>
  </table>     
  </center></div>     
     
     
<p align="center"><br>     
</p>     
   
<script LANGUAGE="javascript">
var svr1,svr2,svr3,svr4,svr5
svr1="<%response.write rs("svr1")%>"
svr2="<%response.write rs("svr2")%>"
svr3="<%response.write rs("svr3")%>"
svr4="<%response.write rs("svr4")%>"
svr5="<%response.write rs("svr5")%>"
if (svr1=="True") { document.formreg.svr1.checked=true}
if (svr2=="True") { document.formreg.svr2.checked=true}
if (svr3=="True") { document.formreg.svr3.checked=true}
if (svr4=="True") { document.formreg.svr4.checked=true}
if (svr5=="True") { document.formreg.svr5.checked=true}
</script>               
</body>              
</html>              

						