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

📄 install.asp

📁 不是我做的一个留言板
💻 ASP
字号:
<!--#include file="../main/conn.asp" -->
<!--#include file="../function/md5.asp" -->


<!--
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 计8工作窒制作 http://j8pc.126.com/  
'
'海军第一职业技术学校 J8工作室
' 作者:陈峰
' 网名:浪の小石 , 湛江.小浪石
' QQ:1972717   
'email:lzxs3000@etang.com
'
'''''''''''''''''''''''''''''''''''''''''''''''''
-->

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">

<title>==j8同学录安装页面 ==</title>
                                                <style type="text/css">
<!--

a {text-decoration: none; color: #599307; font-family: "Arial"}
A:link { text-decoration: none; color: 333333; font-size: 9pt }
A:visited {text-decoration: none; color: 333333; font-size: 9pt}

A:active {text-decoration: none; font-size: 9pt}


A:hover {COLOR: #ff0000; TEXT-DECORATION: underline} td {  font-size: 9pt; font-family: "&Euml;&Icirc;&Igrave;&aring;"}
.text {background-color:#95B8FF; color:#ff00ff;  border: 1 dotted 000000}
BODY{ CURSOR: url('../mouse/3.ani');
P {
	FONT-SIZE: 9pt; LINE-HEIGHT: 13pt; WORD-SPACING: normal
;}
TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 13pt; WORD-SPACING: normal
;}

-->
</style>                                                                

</head>

<body bgcolor='#ffffff' background='../templet_img/green_style/index_bg.gif'>
<center>
<%
if request.form("installid")="" then
%>

<form method="POST" action="#">
<center>
<table border="0" width="63%" height="291" bgcolor="#FFFFFF" cellspacing="1">
 <tr>
    <td width="100%" height="30" colspan="2" align="center" bgcolor="#A2C0FF">
<br>
<h3>
j8同学录2.0安装文件
</h3>
</td>
  </tr>
  <tr>
    <td width="51%" height="12" bgcolor="#A2C0FF">学校名称:</td>
    <td width="82%" height="12" bgcolor="#A2C0FF">
              <p>
<input type="text" name="install_1" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"> <font color="#FF0000">*</font>不能多过<font color="#FF0000"> 
              50</font><font color="#FF0000"> </font>个字符</p>
    </td>
  </tr>
  <tr>
    <td width="51%" height="18" bgcolor="#A2C0FF">班级名称:</td>
    <td width="82%" height="18" bgcolor="#A2C0FF">
<input type="text" name="install_2" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"> <font color="#FF0000">*</font>不能多过<font color="#FF0000"> 
      20 </font>个字符</td>
  </tr>
  <tr>
    <td width="51%" height="27" bgcolor="#A2C0FF">管理员名字:</td>
    <td width="82%" height="27" bgcolor="#A2C0FF">
<input type="text" name="install_3" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"> <font color="#FF0000">*</font>不能多过             
      <font color="#FF0000"> 8</font>       个字符</td>             
  </tr>
  <tr>
    <td width="51%" height="16" bgcolor="#A2C0FF">密码:</td>
    <td width="82%" height="16" bgcolor="#A2C0FF">
<input type="password" name="install_4" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"> <font color="#FF0000">*</font>不能多过             
      <font color="#FF0000">16</font> 个字符</td>            
  </tr>
  <tr>
    <td width="51%" height="20" bgcolor="#A2C0FF">网名:</td>
    <td width="82%" height="20" bgcolor="#A2C0FF">
<input type="text" name="install_5" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"> <font color="#FF0000">*</font>不能多过             
      <font color="#FF0000">20</font> 个字符</td>            
  </tr>
  <tr>
    <td width="51%" height="13" bgcolor="#A2C0FF">E_Mail:</td>
    <td width="82%" height="13" bgcolor="#A2C0FF">
<input type="text" name="install_6" size="20" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'">
 <font color="#FF0000">*</font>不能多过             
      <font color="#FF0000">50</font> 个字符</td>            
  </tr>
  <input type=hidden value="1" name='installid'>
  <tr>
    <td width="100%" height="24" colspan="2" align="center" bgcolor="#A2C0FF">
<input type="submit" value="提交" name="B1" style="background-color: #e1EBFF" onMouseOver = "this.style.backgroundColor = '#e1EBdF'" onMouseOut = "this.style.backgroundColor = '#e1EBFF'"></td>
  </tr>
</table>
</form>
</center>
<%
end if

dim errmsg(6), install(2,6)

if request.form("installid")=1 then
	install_of="1"
	install(1,1)=trim(request.form("install_1"))
	install(1,2)=trim(request.form("install_2"))
	install(1,3)=trim(request.form("install_3"))
	install(1,4)=trim(request.form("install_4"))
	install(1,5)=trim(request.form("install_5"))
	install(1,6)=trim(request.form("install_6"))
' ######################################################
	install(2,1)=50
	install(2,2)=20
	install(2,3)=8
	install(2,4)=16
	install(2,5)=20
	install(2,6)=50
'########################################################

	errmsg(1)="学校名没有填"
	errmsg(2)="班级名没填"
	errmsg(3)="管理员名字没填"
	errmsg(4)="你的密码没有填"
	errmsg(5)="请填写的网名"
	errmsg(6)="你的EMAIL没有填。"
'########################################################
for i=1 to 6
	if install(1,i)="" or len(install(1,i))>install(2,i) then
		install_of=""
		response.write i & ".<font color=#ff0000>"&errmsg(i)&"或者长度大于"&install(2,i)&"</font><br><br>"
		error_back="<a href='install.asp'>请返回</a>"
	end if
Next
	install(1,4)=md5(install(1,4))
	response.write error_back
	Randomize
	session("Number") = Int(rnd * 1000000 + 1)        '随机数
if install_of<>"" then
	sql="update classinfo set class='"&install(1,1)&"', classname='"&install(1,2)&"', mailto3000='"&install(1,6)&"', g_id='"&session("Number")&"'"
	conn.execute(sql)
	sql="update search set g_id='"&session("Number")&"'"
	conn.execute(sql)
	sql="insert into  [user] (username, passwd,realname,email,g_id,usergroup,logno)values('"&install(1,3)&"','"&install(1,4)&"','"&install(1,5)&"','"&install(1,6)&"','"&session("Number")&"','5','1')"
	conn.execute(sql)
response.write "<br><br><br><a href='../index.asp'>恭喜你!!!<br>安装成功,<br>非常感谢你使用j8同学录<br>请进入首页"
end if
end if

%>

⌨️ 快捷键说明

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