📄 pstockapply.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<html><head><title><%=Gupiao_Setting(5)%>-个股上市</title>
<!--#include file="css.asp"-->
</head><body bgcolor="#ffffff" text="#000000" style="FONT-SIZE: 9pt" topmargin=5 leftmargin=0 oncontextmenu=self.event.returnValue=false>
<% 
	dim PStock_Setting
	PStock_Setting=gpconn.execute("select top 1 PStock_Setting from GupiaoConfig order by id")(0)
	PStock_Setting=split(PStock_Setting,"|")
	
	select case request("action")
		case "edit"
			call Edit()
		case "SaveEdit"		
			call SaveEdit()
		case "del"
			call del()
		case "apply"
			call apply()
		case "SaveApply"		
			call SaveApply()
		case "ChangStat"
			call ChangStat()					
		case else
			call main()
	end select
%>
</body></html>
<%
CloseDatabase		'关闭数据库
'=====================================
sub main()
%>

<table width="97%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#0066CC">
	<TR>
		<TD BACKGROUND="Images/topbg.gif" height=9 colspan=8></TD>
	</TR>
	<tr>
		<td valign=center align=middle height=23 background="Images/Header.gif" colspan="8"><b>个人股票上市申请一览表</b> | <a href="?action=apply" class="cblue">申请个股上市</a></td>
	</tr>
	<tr align="center" height=20 valign="middle"> 
		<td background="Images/lan.gif"><font color=#ffffff>上市公司</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>股票数量</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>上市价格</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>申请人</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>申请日期</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>公司简介</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>审批</font></td>
		<td background="Images/lan.gif"><font color=#ffffff>操作</font></td>
	</tr>
<%        
	dim currentpage,page_count,Pcount
	dim totalrec,endpage
	currentPage=request("page")
	if currentpage="" or not isnumeric(currentpage) then
		currentpage=1
	else
		currentpage=clng(currentpage)
		if err then
			currentpage=1
			err.clear
		end if
	end if
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql= "select * from PersonalStock"
	rs.open sql,gpconn,1,1
	if rs.eof and rs.bof then
		response.write "<tr><td colspan=8 bgcolor=#E4E8EF>暂时没有人申请个股上市股票</td></tr>"
	else
		rs.PageSize = Gupiao_Setting(2)
		rs.AbsolutePage=currentpage
		page_count=0
		totalrec=rs.recordcount
		do while (not rs.eof) and (not page_count = 20)	
%>
	  <tr align="center"> 
		<td bgcolor="#FFFFFF"><a href="?action=edit&sid=<%=rs("SID")%>"><%=rs("Stockname")%></a></td>
		<td bgcolor="#FFFFFF"><%=rs("Stocknum")%></td>
		<td bgcolor="#FFFFFF"><%=formatcurrency(rs("Price"),3,-1)%></td>
		<td bgcolor="#FFFFFF"><a href="dispu.asp?uid=<%=rs("uid")%>&username=<%=rs("Username")%>" class="cblue"><%=rs("Username")%></a></td>
		<td bgcolor="#FFFFFF"><%=formatdatetime(rs("ApplyDate"),1)%></td>
		<td bgcolor="#FFFFFF"><%=rs("Explain")%></td>
		<td bgcolor="#FFFFFF"><%if rs("States")=0 then%>未审核<%elseif rs("States")=1 then%>已批准<%else%>不批准<%end if%></td>
		<td bgcolor="#FFFFFF">
		<%if master then%>
			<%if rs("States")=0 then%><a href="?action=ChangStat&stat=pass&sid=<%=rs("sid")%>">批准</a> | <a href="?action=ChangStat&stat=nopass&sid=<%=rs("sid")%>">不批准</a><%elseif rs("States")=1 then%><a href="?action=ChangStat&stat=nopass&sid=<%=rs("sid")%>" class=cred>摘牌</a><%else%><a href="?action=ChangStat&stat=pass&sid=<%=rs("sid")%>">批准</a><%end if%> | <a href="?action=edit&sid=<%=rs("sid")%>">编辑</a> | <a href="?action=del&sid=<%=rs("sid")%>" onclick="javascript:{if(confirm('您确定删除 <%=rs("Stockname")%> 这个股票吗?')){return true;}return false;}" class=cred>删除</a> 
		<%elseif rs("Uid")=MyUserID then%>
			<a href="?action=edit&sid=<%=rs("sid")%>">编辑</a> <%if rs("States")=0 then%>| <a href="?action=del&reaction=my&sid=<%=rs("sid")%>" onclick="javascript:{if(confirm('您确定取消 <%=rs("Stockname")%> 这个股票的上市申请吗?')){return true;}return false;}" class=cred>注销</a><%end if%>
		<%else%>
			-	
		<%end if%>
		</td>   
	  </tr>
<%         
		page_count = page_count + 1		
		rs.movenext
	loop
	Pcount=rs.PageCount         
%>
	<tr><td colspan=8 background="images/title.gif">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr>
			<td align=left>共有<font color=blue><%=totalrec%></font>个申请，每页<font color=blue><%=Gupiao_Setting(2)%></font>个，第<font color=red><%=currentpage%></font>页/共<font color=blue><%=Pcount%></font>页</td>
			<td align=right>分页：
<%
			if currentpage > 4 then
				response.write "<a href=""?page=1"">[1]</a> ..."
			end if
			if Pcount>currentpage+3 then
			endpage=currentpage+3
			else
			endpage=Pcount
			end if
			for i=currentpage-3 to endpage
			if not i<1 then
				if i = clng(currentpage) then
				response.write " <font color=red>["&i&"]</font>"
				else
				response.write " <a href=""?page="&i&""">["&i&"]</a>"
				end if
			end if
			next
			if currentpage+3 < Pcount then 
				response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
			end if
%>
				</td></tr>
			 </table>
		</td></tr>
<%				
		end if
		rs.close
		set rs=nothing	
%>			
	<tr><td height=32 background="images/footer.gif" valign=middle align="center" colspan="8"><a href="?action=apply" class="cblue">[申请上市]</a>
⌨️ 快捷键说明

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