[此贴子已经被作者于2006-5-19 10:31:00编辑过]
2006-05-18 18:38
附件里是我做的程序。
我在shownews.asp中程序：
<!--#include file="data1.asp"-->
<%
'从数据库jbb(经济户口表)中的pq字段和表class(片区分类)class_ID字段相联系的地方,显示出片区分类
dim id1
id1=request("id")
if id1="" then response.End
sql2="select class.class_id as class1,class.class as class2 from jbb,class where jbb.id="&id1& "and class.class_id=jbb.pq "
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.open sql2,conn,1,3
%>
<%
'从数据库jbb(经济户口表)中的pq字段和表class(片区分类)class_ID字段相联系的地方,显示出片区分类
'dim id1
'id1=request("id")
'if id1="" then response.End
'sql2="select class.class_id as class1,class.class as class2, qzzj.zch as zch1,qzzj.zjhm as zjhm1,qzzj.zjmc as zjmc1,qzzj.fzjg as fzjg1,qzzj.fzrq as fzrq1,qzzj.yxrq as yxrq1 from jbb,class,qzzj where jbb.id="&id1& "and class.class_id=jbb.pq and qzzj.zch=jbb.zch "
'Set rs2= Server.CreateObject("ADODB.Recordset")
'rs2.open sql2,conn,1,3
%>
<%
'显示前置证件数据库中的内容
sql3="select qzzj.zch as zch1,qzzj.zjhm as zjhm1,qzzj.zjmc as zjmc1,qzzj.fzjg as fzjg1,qzzj.fzrq as fzrq1,qzzj.yxrq as yxrq1 from jbb,qzzj where jbb.id="&id1&" and qzzj.zch=jbb.zch "
Set rs3= Server.CreateObject("ADODB.Recordset")
rs3.open sql3,conn,1,1
%>
<html<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>济宁市工商局任城分局</title>
<style type="text/css">
<!--
.style8 {color: #FF6600; font-size: 16px; }
.style10 {color: #FF6600; font-size: 11px; }
-->
</style>
</head>
<body>
<%sql="select * from jbb"' where class_id='1' order by News_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
'session("pq")=rs("pq")
%>
'<%
'sql6="select class.calss as class1 from class,jbb where class.class_ID=jbb.pq"
' Set rs= Server.CreateObject("ADODB.Recordset")
' rs.open sql6,conn,1,3
' %>
<input name="pq" type="text" maxlength="16" value="<%=pq1%>">
<form name="Form1" action="submit.asp" method="post" onSubmit="return check()">
<table width="100%" height="569" border="1">
<tr>
<td width="8%" height="28"><div align="left">注册号:</div></td>
<td width="16%"><%=rs("zch")%>
</td>
<td width="9%">字号名称:</td>
<td width="29%"><%=rs("zhmc")%></td>
<td width="6%">片区:</td>
<td width="32%" valign="middle">
<%=rs2("class2")%>
</td>
</tr>
<tr>
<td height="32" colspan="6"><table width="100%" border="1">
<tr>
<td width="8%" height="24">负责人:</td>
<td width="12%"><%=rs("fzr")%></td>
<td width="6%">地址:</td>
<td width="48%"><%=rs("dz")%></td>
<td width="9%">联系电话:</td>
<td width="17%"><%=rs("lxdh")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="32" colspan="6"><table width="100%" border="1">
<tr>
<td width="12%" height="28">风险度:</td>
<td width="6%"><%=rs("fxd")%></td>
<td width="9%">信用度:</td>
<td width="7%"><%=rs("xyd")%></td>
<td width="10%">监管级别:</td>
<td width="14%"><%=rs("jgjb")%></td>
<td width="16%">监管周期:</td>
<td width="26%"><%=rs("jgzq")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="33" colspan="6"><table width="100%" border="1" cellspacing="0">
<tr>
<td height="31" colspan="6"><span class="style8">前置证件：</span></td>
</tr>
<tr>
<td height="31">证件号码:</td>
<td><%=rs3("zjhm1")%></td>
<td>证件名称:</td>
<td><%=id1%></td>
<td width="9%">发证机关:</td>
<td width="23%"><input name="fzjg" type="text" id="fzjg" size=20></td>
</tr>
<tr>
<td width="10%" height="24">发证日期:</td>
<td width="25%"><input name="fzrq" type="text" id="fzrq"></td>
<td width="9%">有效日期:</td>
<td width="24%"><input name="yxrq" type="text" id="yxrq"></td>
<td colspan="2"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="102" colspan="6"><table width="100%" border="1">
<tr>
<td height="37" colspan="6"><span class="style8">出资情况：</span></td>
</tr>
<tr>
<td width="10%" height="45">注册资本：</td>
<td width="20%"><input name="zczb" type="text" id="zczb" value="" length='5' size=10>
(万元)</td>
<td width="10%">实收资本:</td>
<td width="19%"><input name="sszb" type="text" id="sszb" size=10> (万元)</td>
<td width="14%">出资期限:</td>
<td width="27%"><input name="czqx" type="text" id="czqx" size=10>
(万元)</td>
</tr>
<tr>
<td height="45"><p>出资方式:</p> </td>
<td height="45"><input name="czfs" type="text" id="czfs" size=20></td>
<td height="45">出资数额:</td>
<td height="45"><input name="czse" type="text" id="czse" size=10>
(万元)</td>
<td height="45" colspan="2"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="44" colspan="6"><span class="style8">检查处理情况：</span></td>
</tr>
<tr>
<td height="44" colspan="6"><table width="100%" border="1">
<tr>
<td width="11%" height="35">处理情况:</td>
<td width="89%"><textarea name="clqk" rows="8" id="clqk"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" colspan="6"><div align="center">
<input name="Ok" type="submit" class="button" value="提 交">
<input name="Reset" type="reset" class="button" value="清 除">
(Enter提交)
</div></td>
</tr>
</table>
</form>
</body>
</html>
2006-05-18 18:43
2006-05-18 18:45
EzM7I7qk.rar