insertword.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 74 行

ASP
74 行
字号 
<html>
<head>
<title>插入文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
function insertword(wordtext,url){
if (url=="") {
	alert("请提供文件路径!");
	return false
}
if (wordtext=="") {
	alert("请提供连接文字!");
	return false
}
    var sel,RangeType
    opener.Composition.focus();
    sel = opener.Composition.document.selection.createRange();
    sel.pasteHTML("<a href=" + url + " target=_blank>" + wordtext + "</a>");
	sel.select();
	window.close();

}
</script>

<style type="text/css">
 td {font-size: 9pt}
 body {font-size: 9pt}
 button {width:5em}
</style>

</head>

<body bgcolor="#f6f6f6">
<form name="form1" method="post" action="">
  <table width="390" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      <td height="25"> 
        <div align="center">插入WORD文档选项</div>
      </td>
    </tr>
  </table><br>
  <table width="390" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td> 显示文字： 
        <input type="text" name="wordtext" size="20">
        <input type="button" name="Button" value="确定" onClick="insertword(document.form1.wordtext.value,document.form1.url.value)">
        <input type="button" value="上传文件" onClick='upload();' name="button">
        <script>
function upload()
{
	var str;
	var arr_image=new Array();
	str=window.showModalDialog("form_word.html","","dialogWidth:20;dialogHeight:13");
	if (!str) return false;
	arr_image=str.split("||");
	document.form1.url.value=arr_image[0];
	document.form1.bigurl.value=arr_image[1];
	document.form1.url.focus();
	return true;
}
</script>
        <input type="hidden" name="bigurl">
      </td>
    </tr>
    <tr> 
      <td>文件来源： 
        <input type="text" name="url" size="39" value="<%=session("wordpath1")%>">
      </td>
    </tr>
  </table>
  </form>
</body>
</html>

insertword.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 insertword.asp 源码文件，采用 ASP 编程语言编写，共 74 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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