⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 profilemain.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<SCRIPT language='javascript'>window.resizeTo(750,600);window.focus()</SCRIPT>
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%

dim connq
set connq=server.CreateObject("adodb.connection")
connq.Open connstring
  set rsq=server.CreateObject("adodb.recordset")
  rsq.Open "select subname from ProFileList where ProFileListid="&request("ProFileListid")&" order by seq",connq,1,1
	if not rsq.eof then
		strsubname=rsq("subname")
	end if
  connq.Close 
  set connq=nothing
%>
<HTML>
<HEAD><TITLE><%=strsubname%></TITLE>
<link rel="Bookmark" href="saa.ico">
<link rel="SHORTCUT ICON" href="saa.ico">
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR></HEAD>
  <frameset cols="180,*"  border="0" framespacing="0"  frameborder="NO">
    <frame name="leftFrame" target="helpmain" src="ProFileleft.asp?ProFilelistid=<%=request("ProFilelistid")%>">
    <frameset rows="*,1"  border="0" framespacing="0"  frameborder="NO">
     <frame name="bottom" src="ProFilebottom.asp?ProFilelistid=<%=request("ProFilelistid")%>">
    </frameset>
  </frameset>
  <noframes>
  <body>
  </body>
  </noframes>
</HTML>

⌨️ 快捷键说明

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