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

📄 talk.asp

📁 自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求
💻 ASP
字号:
🔍 
<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
Dim  const_txl_HomeUrl,errstr
errstr=""
const_txl_HomeUrl="../"
OpenDatabase
call main
call Closedatabase
sub main
%>
<script language="javascript">
function bs() {
  document.formtalk.saystemp.focus();
}

function checksays(theForm) {
  if (document.formtalk.saystemp.value==""){
     return false;
}
document.formtalk.says.value=document.formtalk.saystemp.value;
  document.formtalk.saystemp.value='';
  return true;
}
function show_user(mylink){
 window.open(mylink,"","top=20,left=150,width=250,height=120,resizable=no,status=0,menubar=0,location=0,scrollbars=no")
}
</script>
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="chat.css">
<title></title>
<base target="_self">
</head>
<body topmargin="6">
<form method="POST" name="formtalk" action="chk.asp" target="list" onsubmit="return(checksays(this));" >
  <input type=hidden name="says" value="">
  <%
  dim GBL_CHK_User,rs
  GBL_CHK_User=getmasterusername(Session("username"))
  if GBL_CHK_User="" then
  response.write session("chatname")
  %>
  对
  <select name="towho" id="towho">
    <option selected>所有人</option>
	<%
	set rs=conn.execute ("select distinct ec.sname,online.* from ec,online where ec.studentid=online.sname")
	while not rs.eof 
		if isnull(rs(0)) then
			Response.Write("<option value='所有游客'>所有游客</option>")
		else
			Response.Write("<option value='"&rs(0)&"'>"&rs(0)&"</option>")
		end if
		rs.movenext
	wend 
	rs.close
	%>
  </select>
  ： 
  <input name="saystemp" type="text" style="border-style: solid; border-width: 0" size="30" maxlength="250">
  <input type="submit" value="发送" name="B1" class="fmbtn" style="border: 0 solid #636563">
  &nbsp<a href=list.asp target="list"> <font color=#3c7796 face="宋体">刷新</font></a>&nbsp<a href=javascript:show_user("help.htm")><font color=#3c7796 face="宋体">帮助</font></a> 
  &nbsp<a href="default.asp" target="_blank"><font color=#3c7796>大窗</font></a> 
  <%else
dim username,sql
  response.write GBL_CHK_User
%>
  对 
  <select name="towho" id="towho">
    <option selected>所有人</option>
    <%
	set rs=conn.execute ("select distinct ec.sname,online.* from ec,online where ec.studentid=online.sname")
	while not rs.eof 
		if isnull(rs(0)) then
			Response.Write("<option value='所有游客'>所有游客</option>")
		else
			Response.Write("<option value='"&rs(0)&"'>"&rs(0)&"</option>")
		end if
		rs.movenext
	wend 
	rs.close
	%>
  </select>
  ： 
  <input name="saystemp" type="text" style="border-style: solid; border-width: 0" size="30" maxlength="250">
  <input type="submit" value="发送" name="B1" class="fmbtn" style="border: 0 solid #636563">&nbsp<a href=list.asp target="list">   
  <font color=#3c7796>刷新</font></a>&nbsp<a href=javascript:show_user("help.htm")><font color=#3c7796>帮助</font></a>
 &nbsp<a href="default.asp" target="_blank"><font color=#3c7796>大窗</font></a>
<%
end if
if isobject(rs) then
	set rs=nothing
end if
%></form>
<%end sub%>

⌨️ 快捷键说明

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